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$2.00 
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35K 
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2001 ■ 32N $1295°° 
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2001 - 8N 

2001 - 16B 

2001 ■ 16N 

2001 - 32B 

16/32K Diagnostic Kit 
Audio Amplifier PET 



$795 00 

$995 00 

$995 00 

$1295 00 

$225 00 
$29" 



PET to IEEE Cable 
IEEE to IEEE Cable 
C2N CASSETTE 

8K Diagnostic Kit 
DISKETTES: 

DYSAN [Business Quality] 
VERBATIM 



N DENOTES GRAPHICS ON LARGE KEYBOARD 
B DENOTES NO GRAPHICS ON LARGE KEYBOARD 



$39 95 
$49 95 
$95°° 
$30°° 

5/$24 50 
10/31 95 



BUSINESS SOFTWARE 

OSBORNE — CMS 



General Ledger Disk $295 00 

Accounts Payable Disk $195 00 
Accounts Receivable Disk $195 00 
Word Processor 16/32K Disk $99 00 



Inventory Control Disk $195 00 
[Available 12-1-79] 

Mailing List Disk $95 00 

Payroll Disk $295 00 
[Available 1-15-80] 

Word Processor Tape $24 95 



CBM — MIS 



General Ledger Disk 
Accounts Receivable Disk 
Accounts Payable Disk 
Payroll Disk 



$120 00 
$120 00 
$120 00 
$120 00 



Inventory Disk 
Job Cost/Bid Disk 
Customer Information 
[Mailing List] Disk 



$120 00 
$120 00 

$120 00 



CBM — MIS Complete 7 Module Set $795 00 

All 16N/16B Upgrade to 32K $310 
Ship computer and check to: 

Home campuTERS 

1775 E. Tropicana 
(Liberace Plaza) 
Las Vegas, NV 89109 
702/736 - 6363 



oo 



FREE Software 
LAS VEGAS series with any PET 
computer purchase or upgrade 
to 32K, valued at $200° ° or 
more, including other software. 



SUPERKIM 

INDUSTRIAL CONTROL COMPUTER 



Here is a powerful microprocessor control 
system development tool and a complete 
real-time multitasking microcomputer in 
one package. There is no need to buy a 
power supply, motherboard, memory 
boards and separate l /o boards when your 
requirements may be satisfied by a SUPER- 
KIM. You may only need a couple of wire- 
wrap sockets and a few LSI chips installed 
in the big 3" x 10" onboard prototype area 
to accomplish the required memory ex- 
pansion and interface with the real world. 

Some single chip interface devices available 
are: uarts, 16 channel-8 bit analog to digi- 
tal data acquisition systems, floppy disk 
controllers and dot matrix printer con- 
trollers. Furthermore, you will shortly be 
able to buy single 5 volt supply pseudo 
static 8K byte (that's right, you read it right, 
8K x 8 bits) memory chips in a single 28 pin 
package. These chips use the same tech- 
nology developed for the 64K bit dynamic 
RAMs now being manufactured by Ti, 
MOTOROLA and others. Just five of these 
chips and four 2732 EPROMs in the sockets 
already supplied in the SUPERKIM will yield 
a fully populated SUPERKIM with 44K bytes 
of RAM, 16K bytes of EPROM with serial and 
parallel I/O ports, and enough room left- 
over in the prototype area for a LSI floppy 
disk controller chip.Zilog already has, on the 
market, a 4K byte version of this memory 
chip that is pin compatible with the 8K byte 
version; no need to rewire your sockets 
when the larger memories become avail- 
able. Put in 24K now and upgrade later 
to 44K. 

if you started with a KIM-1 , SYM-1 or AlM-65 
and tried to expand it to the basic capabili- 
ties of the SUPERKIM, you would need a 
power supply ($60), a motherboard ($120), 
a prototype board ($30), a memory board 
($120), and an I/O board ($120) for a total 
cost of from $620 in the case of the KlM-1 
to $825 in the case of the AlM-65. You still 
would not have real time multitasking 
capabilities. 

Multitasking is a situation where the micro- 
computer appears to be doing more than 
one job simultaneously. For example, the 
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INTERRUPTS 



microcomputer could be sending data to a 
printer, accepting analog data from a 
16-channel data acquisition system and 
presenting data to an operator monitor- 
ing a LCD or LED display, all the while keep- 
ing track of time. 

Multitasking is accomplished on the SUPER- 
KIM by use of vectored priority interrupts 
and a r 5al time clock. This real time clock is 
implemented using one of the four on- 
board (i522 programmable tone generators. 

The SU perkim, with its keyboard, display 
and ROM monitor, can be used as a system 
analyzer for troubleshooting hardware 
and software in-the-field or during system 
development as an in circuit emulator. The 
monitor can stop the CPU at any point 
in the program, step through the program, 
change the contents of the systems' 
memory and CPU registers, and record the 
CPU's registers during a selected portion of 
the program, it offers one of the most 
powerful combinations of development 
and diagnostic tools available on the 
market: today. 

All of the above is unavailable on any other 
singlet oard computer at any price. 



$395 
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microproducts 

2107 ARTESIA BOULEVARD • REDONDO BEACH, CA 90278 • (213) 374-1673 





microsystems 



P.O. Box 687 

224 S.E. 16th Street 

Ames, Iowa 50010 
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DAIM is a complete disk operating system for the ROCKWELL INTERNATIONAL 
AIM 65. The DAIM system includes a controller board (with 3.3K operating system in 
EPROM) which plugs into the ROCKWELL expansion motherboard, packaged power 
supply capable of driving two 5 1/4 inch floppy drives and one or two disk drives 
mounted in a unique, smoked plastic enclosure. DAIM is completely compatible in 
both disk format and operating system functions with the SYSTEM 65. Commands 
are provided to load/save source and object files, initialize a disk, list a file, list a disk 
directory, rename files, delete and recover files and compress a disk to recover 
unused space. Everything is complete — plug it in ;and you're ready to go! DAIM 
provides the ideal way to turn your AIM 65 into u complete 6500 development 
system. Also pictured are CSB 20 (EPROM/RAM) and CSB 10 (EPROM programmer) 
which may be used in conjunction with the DAIM tD provide enhanced functional 
capability. Base price of $850 includes controller board with all software in EPROM, 
power supply and one disk drive. Now you know why we say — 
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Skyles Electric Works 




PAL-80 



TM 



• 80 characters per line 

• 8Y2 inch wide thermal paper 

• Full graphics at 60 dots/inch 

• Interfaced to PET 

• Works with all PET peripherals 

• 40 character per second rate 

• Microprocessor controlled 

• Bidirectional look-ahead printing 

• Quiet operation 

• No external power supplies 

• Only two driven parts 

• High reliability 

• Clear 5x7 characters 

• Attractive metal and plastic case 



The Skyles PAL-80™ is a high speed thermal printer 
offering the combination of text printing at 80 charac- 
ters per line and continuous graphics at 60 dots per 
inch. In the text mode, upper and lower case data are 
printed at 40 characters per second. The 5x7 charac- 
ters provide clear readable copy on white paper; no hard 
to find, hard to read aluminized paper. 

In the graphics mode, seven bits of each byte correspond 
to the seven dots in each of the 480 print positions per 
line. Since the computer driving the printer has full con- 
trol over every print position, it can print graphs, bar 
charts, line drawings, even special and foreign language 
symbols. Despite its low cost, the Skyles PAL-80 is a 



true intelli lent printer with full line buffering and bi- 
directional look-ahead printing. 
High reliab lity is designed in: The thick film thermal 
print head las a life expectancy of 100,000,000 charac- 
ters. Two [ >C stepping motors provide positive control 
of the prin head and the paper drive. 

The Skyles PAL-80 operates directly from a 115V 60 Hz 
line (230V 50 Hz available). No external power supplies 
are require i. 

It comes c< mplete with an interface for the PET: a two 

and a half oot cable plugs into the IEEE interface at 
the back o your PET. Works with all PET models and 
PET or S^ les peripherals. 



Skyles PAL-80 printer(s) 



Please send me 

complete with 2Y 2 foot interface cable to attach to my 
PET at $675.00 each* (Plus $10.00 shipping and hand- 
ling). I also will receive a test and graphics demonstra- 
tion tape at no additional charge and over 150 feet of 
8Y2 inch wide black on white thermal paper $ 



would also like to order . 



. rolls of 8Y2 inch wide 



by 85 ft. long thermal paper (black ink) at $5.00 each 
$ 

10 roll cartons at $45.00 $ 



PAL-80 SPECIFICATIONS 



VISA, Mastercharge orders call (800) 227-8398 
California orders call (415) 494-1210 

•California residents add 6 to 6 1 /2% sales tax 
where applicable. 



Skyles Electric Works 



TEXT 




Format 


80 characters per eight inch line 




6 lines per inch nominal 


Print speec 


40 characters per second 


Line Feed 


50 milliseconds nominal 


Character ! et 


96 Characters, including upper and 




lower case, numerals, and symbols 


GRAPHIC ! 




Format 


480 print positions per line 


Print Speei 


240 print positions per second 


COMMON 




Paper 


8V2 inch wide thermal paper, available 




in 85 foot foils, black image on white 


Dimension 


12"Wx 10"Dx2%"H 


Weight 


8 lbs (3.6 kg) 



0301 Stonydale Drive 
Hupertino, CA 95014 • (408) 735-7891 



TM PAL-80 Printer on A Leash, a trademark of Skyles Electric Works Inc. 



Dual Tape Drive for SYM-1 BASIC 



If you want to make your SYM - 1 BASIC work with two 
tape recorders and manage tape cassette files, here is 
what it takes. A few important observations about the 
BASIC are presented that could save you grief. 



George Wells 
1620 Victoria Place 
La Verne, CA 91750 



J 



When I bought my SYM-1, I had no in- 
tention of buying BASIC for it. However, 
after not being able to show off my new 
computer to my friends and relatives in a 
way they could understand, I decided to 
go ahead and get the BASIC ROMS. 
Then I purchased a book of BASIC 
games and copied several of them onto 
tape. The need to have a convenient 
means of copying tapes to make backup 
copies became apparent. Also, I 
discovered that the tape routines do not 
work after BASIC has been interrupted 
and reentered with a "GO" command 
(warm start). After I recieved the tech 
note from Synertek describing how to 
put trig functions in BASIC, I found out 
how to fix this problem. The tape 
routines use system RAM to pass infor- 
mation from BASIC and apparently the 
call to "ACCESS" was omitted during 
the warm start. 

To make the second tape recorder 
work, I added five components to one of 
the buffered outputs to make it look like 
the audio cassette remote control con- 
figured for type IV (see figure 3-3, pages 
3-7 of SYM reference manual). This is the 
set up required for one of the recom- 
mended recorders, Radio Shack CTR-40. 
Refer to SYM reference manual figure 
4-5A, pages 4-12. Note that pad 1 is 
located between pads 2 and 6. The 
following connections were made to buf- 
fer PB4: 

Install 470 OHM at location R5. 

Install 2N2902A transistor emitter to pad 
6 base to pad 9 
collector to pad 
1. 

Install 1K resistors between pads 6&9. 

Install 1N914 diode anode to pad 1 

cathode to pad 6 

Install 1N914 diode anode to pad 19 

cathode-pad 16. 
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Install subminiature phono pluc tip to 
pad 6, 
shield to pad 1. 

My first tape recorder (General Elec- 
tric model M8455A) is connected to the 
normal remote control configjred for 
type V. The audio out (LO) goes to the 
MIC input. I discovered a trim pot on the 
inside of the recorder which, if turned 
completely counter-clockwise, makes 
the recording ideal for the SYM com- 
puter (terrible for voice though;. Also, I 
found it necessary to align the heads of 
both tape recorders before I could get 
reliable operation. The GE recorder is us- 
ed normally to save files and the Radio 
Shack recorder is used with special 
routines to load files. The assembly 
language program was written at a loca- 
tion just before the trig function routines 
and includes two sets of execute com- 
mands for cold and warm starts to 
BASIC that are compatible with the trig 
functions and include a call to "AC- 
CESS" so that the tape routines will 
work after a warm start. 

The hex dump of the tape drive routine 
plus the trig functions (from Synertek 
Systems Corp. Tech Note 53) cai be us- 
ed to enter the code into your system. 
Use the same verify command aid com- 
pare checksums to check your work. I 
save this file on tape using an II) of $31 
which can be loaded and sav<jd from 
BASIC as file "1". 

The sample run-stream illustrates how 
to make it all work. First, a cold start to 
BASIC was performed with the monitor 
execute command (E E5A;. SYM 
responds with everything down to line 
100 which was entered to excer:ise the 
trig functions and provide something to 
save on tape. After running tho single 
line BASIC program, it was saved on 
tape with the file name "T". "NEW" 
erases the program to indicate :hat the 
tape will do a real load. The "UST' com- 

MICRO — The 6502 Journal 



mand to hex address 8035 takes us out 
of BASIC and back to the monitor. To get 
back to BASIC use the execute com- 
mand (E E95). The response includes 
everything down to the word "list". 
Since nothing was listed, this shows 
that the previous program has been 
erased. It is loaded back in by transfer- 
ring the cassette from the "save only" 
recorder (in my case the GE) and putting 
it on the "load only" recorder (Radio 
Shack) and pushing the rewind button. If 
this is the first time that the load only 
recorder has been used since the SYM 
was reset, then the recorder will start 
rewinding immediately. Otherwise it will 
wait until the "LOAD T" command is 
entered. When the tape is rewound, the 
play button is pressed and the recorder 
stops automatically when the file is 
loaded. Listing and running the program 
show it to be the same as before. 

The way I use routines to manage files 
is through the use of three identical 
cassette tapes each storing one copy 
each of all my BASIC programs. I use a 
fourth tape for temporary storage of a 
program I am currently working on. 
When I want to make a copy of all the 
programs on tape, I put that tape into 
the LOAD-ONLY or READ-ONLY 
recorder, and push the PLAY button. 
Then I put the tape that I want to copy to 
in the SAVE-ONLY or WRITE-ONLY 
recorder and push the PLAY-RECORD 
buttons. I also keep a directory on paper 
of the program files ID's on tape. Its a 
simple matter to type a sequence of 
BASIC commands consisting of a series 
of LOAD A, SAVE A, LOAD B, SAVE B, 
LOAD C, SAVE C, etc. If I want to insert a 
new program from my temp tape. I just 
swap tapes in the READ-ONLY recorder 
to get the new program out, and then 
swap back to continue with the old pro- 
grams. 
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.E E5A 

.J 

MEMORY SIZE? 3674 

WIDTH? 80 

DK 

PDKE202, 169!PDKE203» 14:PDKE196» IQ4:PDKE197» 15 



DK 

100 PRINT SIMCO »CDS<2> »TflN<3) »flTN<4J 
RUN 
.841470985 -.416146836 -.142546543 

DK 

SAVE T 
SAVED 

DK 
NEW 

DK 
?USR<8c"3035"j 0> 

CB6D,3 
.E E95 

.S 

DK 

?USR<3 [ "3B86"> 0> 


DK 

LIST 

OK 

LOAD T 
LDADED 
DK 
LIST 

100 PRINT SINU> »CDS<:2) » TAN <.3> < ATN <:4:> 
DK 
RUN 

.341470985 -.416146336 -.142546543 



DK 



As a matter of habit I then read the 
tape I have just written to verify that it is 
O.K. and use it to copy into my third per- 
manent tape. Then I repeat the process 
going from the third tape back to the 
original one. Finally, I read the original 
tape to verify it. If at any point I detect a 
bad load, I know that I will always have 
an available on one of my tapes a copy 
of the file in good condition, that hasn't 
been overwritten yet. 

Small changes can be made in any 
program file by copying it onto the temp 
tape with the changes (I usually make 
two or three copies on the temp tape) 
and then rewriting the file on each of the 
permanent tapes by reading the file im- 
mediately before the one I want to 
change to find where to start, and 
reloading from the temp tape before ac- 
tually saving the changed file. 



Three Other Observations 

I.Two words have been omitted from the 
list of reserved words on page 9 of the 
BASIC manual: "GO" and. "GET". "GO" 
allows you to spell "GOTO" as "GO TO" 
if you want; not really a good idea since 
it takes three bytes of storage instead of 
only one. "GET" must be a leftover since 
it always generates an FC error. 

2.Page C-2 of the manual states that 6 
bytes of storage are used for each 
variable: 2 for the name and 4 for the 



1.32581766 



value. In fact, 5 are used for the value, br- 
inging the total to 7. This is what gives 
SYM BASIC its 9+ digit resolution. The 
disadvantage is that every simple 
variable (including integer and string 
variables which only need two and three 
bytes respectively for their values) uses 
more bytes than are usually needed. In- 
cidentally, there is a memory saving 
when using integer or string arrays. 
However, Microsoft BASIC converts in- 
teger values to floating points before us- 
ing them, which takes longer than using 
floating points in the first place. 
Therefore, as a general rule, integer 
variables should only be used in arrays, 
and only when it is necessary to con- 
serve memory space. 

3.Don't make a mistake when typing a 
line that prints a hex-formatted number. 
If you don't follow the format exactly, 
BASIC hangs up in a loop, printing 
zeroes. If this occurs, you can recover by 
doing a reset and going back to BASIC 
with a warm start. Your program will still 
be there, but as with any error, the pro- 
gram cannot be continued. 
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ASSEMBLY LANGUAGE 


PROGRAM 














MODE 


EOU 


SFD 


















CDNFIG 


EOU 


$89A5 


















ZERCK 


E(!U 


$83 SE 


















P2SCR 


E(!U 


S829C 


















DDR3B 


EOU 


SAC 02 


















DR3B 


EOU 


*AC 00 


















LDADT 


Et!U 
AUR 


$8C78 
$E5A 








OESfl 


4A 


30 








A^CII 






' J " 


BASIC COLD START COMMAND 


0E5C 


0D 










BITE 






SOD 


CARRIAGE RETURN 


0E5D 


33 


36 


37 


34 




A:: CI I 






'"3674' 


MEMORY SIZE 


0E61 


0D 










BYTE 






'1 0D 


CARRIAGE RETURN 


0E62 


38 


30 








RICH 






'80- 


LINE WIDTH 


0E64 


14 


0D 








BYTE 






$14. SOD 


CONTROL T» CARRIAGE RETURN 
















CHANGE 


TAPE LOAD VECTOR 


0E66 


50 


4F 


4B 


45 




ASCII 






"PDKE202* 


169:POKE£03. 14: 


0E6A 


32 


30 


32 


2C 














0E6E 


31 


36 


39 


3 A 














0E72 


50 


4F 


4B 


45 














0E76 


32 


30 


33 


2C 














0E7A 


31 


34 


3A 








CHANGE 


TR 


IG VECTOR 




0E7D 


50 


4F 


4B 


45 




A! C 1 1 






POKE 196- 


104:PDKE197. 15' 


0ES1 


31 


39 


36 


2C 














0E85 


31 


30 


34 


3A 














0E89 


50 


4F 


4B 


45 














0E8D 


31 


39 


37 


2C 














0E91 


31 


35 


















0E93 


0D 


00 








B*iTE 






$0D»S00 


CARRIAGE RETURN- END EX ECU' 


0E95 


47 


30 








ASCII 






'GO' 


BASIC WARM START COMMAND 


0E97 


0D 










B'iTE 






SOD 


CARRIAGE RETURN 



0E98 3F 55 53 52 

0E9C 29 26 22 33 

OEflO 42 38 36 22 

0EA4 2C 30 29 



JUMP TD MONITDP ACCESS SUBROUTINE 
ASCII '?U£PC4:"SB86 ,1 « Cu 



0EA7 


0D 


00 




B^iTE 


JODiSOO CARRIAGE RETURN, EN! 


0EA9 


84 


FD 




ST Y 


MDDE DO CUSTOM INITIALIZE FOP READ 


0ERB 


A9 


09 




LIA 


;;9 


0EAD 


20 


A5 


89 


JSR 


CONFIG 


0EB0 


20 


£E 


83 


JSR 


ZERCK 


0EB3 


20 


9C 


92 


JSP 


P2SCP 


0EB6 


A9 


10 




LIA 


«* 01 0000 


0EB8 


8D 


02 


AC 


SIR 


DDR3B BIT RB 4 OF VIA 3 IET OUTPUT 


0EBB 


8D 


00 


AC 


SI A 


DR3B TURN ON READ TAPE RECORDER 


0EBE 


20 


7B 


■3C 


j:r 


LDADT +3 LOAD TAPE BUT SKIP INITIALIZE 


0EC1 


A9 







LIA 


«5i 000 00000 


0EC3 


8D 





AC 


S1A 


0R3B TURN DFF READ TAPE RECORDER 


0EC6 


60 






PVS 
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HEX DUMP 



.V E5H-FFF 
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4fl 


30 
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36 
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34 


0D« 


68 


OF 32 


36 


DD 


60 


81 


49 


OF 
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H2 


.71 


OE6£ 


33 


30 


14 


on 


5 


4F 


4E 


45 j 


2 


0F3H 


7F 


00 


00 


00 


00 


05 


84 


E6 


5F 


OE6H 


32 


30 


32 


2C 


31 


36 


39 


3fl» 


EH 


0F42 


1R 


2D 


IE 


86 


28 


07 


FE 


F3 


69 


OE72 


50 


4F 


4B 


45 


32 


30 


33 


2C« 


fiH 


0F4R 


37 


99 


63 


39 


01 


37 


i.:3 


35 


5H 


OE7B 


31 


34 


3fl 


50 


4F 


4B 


45 


31 1 


R9 


OF 52 


DF 


El 


86 


R5 


5D 


E7 


£:8 


33 


34 


OE32 


39 


36 


2C 


31 


3 


34 


3 ft 


50» 


63 


OF 5ft 


49 


OF 


DR 


R2 


Hi 


54 


L -6 


SF 


D2 


OESR 


4F 


4E 


45 


31 


39 


37 


£C 


31 j 


40 


OF 62 


13 


SF 


52 


43 


39 


CD 


f. 


72 


91 


OE9£ 


35 


CD 


00 


47 


30 


OD 


3F 


55 < 


9R 


OFbfl 


FO 


4R 


90 


41 


C 


76 


FO 


92 


54 


0E9fl 


53 


52 


23 


26 


22 


38 


42 


38 s 


61 


0F72 


20 


3 


D9 


H9 


00 


35 


1 6 


R5 


E6 


OEflE 


36 


22 


2C 


30 


29 


OD 


00 


84 


CF 


0F7R 


C5 


43 


R9 


35 


43 


R5 


C5 


43 


EE 


OEflfl 


FD 


R9 


09 


20 


R5 


39 


20 


£E< 


1R 


0F82 


R9 


B5 


48 


60 


R2 


9E 


HO 


00 


Dl 


QEB2 


83 


20 


9C 


82 


R9 


10 


3D 


02 


23 


0F8H 


20 


3R 


D9 


R9 


R7 


HO 


1 1 


20 


64 


OEBfl 


HC 


8H 


00 


HC 


20 


7B 


3C 


R9 


D8 


OF 92 


58 


D9 


R9 


00 


35 


B6 


Fl5 


C5 


E3 


OEC£ 


00 


3D 


00 


RC 


6 


OB 


76 


B3 


R5 


0F9R 


48 


R9 


R7 


43 


R5 


16 


*>Q 


R5 


6E 


OECR 


33 


BD 


D3 


79 


IE 


F4 


R6 


F5 


DE 


0FR2 


C5 


48 
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E7 


43 
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R9 
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F7 


OED2 


7B 
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7C 


OC 


IF 
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02 
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67 
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DE 


53 
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7D 


26 


0FB2 
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20 
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20 


C2 


1 19 


R9 


3E 
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14 


64 
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4C 


7D 


B7 


ER 


51 


C9 
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59 


R4 


C5 


R6 


BE 


2 


]:D 


D8 


19 


UEER 
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7D 


63 


3 


33 


7E 


7E 


92 


69 
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20 


C2 


D9 


20 


82 


DR 
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F9 
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44 
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4C 


CC 
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C7 


6E 
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EF 
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C3 
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7F 
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HH 


HH 


13 


31 
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7F 
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C5 
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H6 


R5 


E6 


-8 


10 


37 
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00 


00 


R5 


B6 


48 


10 


03 


20 


55 


OFDR 


OD 


20 
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R5 


B6 


OO 


09 


CC 
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36 


DD 


R5 


El 


43 


C9 


31 


90 


EO 


0FE2 


R5 


16 


49 


FF 


35 


16 
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36 


CO 
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R9 


72 
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36 
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R9 
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R4 
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20 


3D 


D6 


FC 


OFlfl 
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R4 


C5 
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20 


C2 


DD 


56 


0FF2 


63 


10 


03 


20 


36 


DD 
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3F 


92 
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C9 


31 


90 


07 
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35 


R4 


21 


OFFfl 


R4 


C5 


4C 


C2 


DD 
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0F2fl 


C5 


20 


06 


D6 


68 


10 


03 


4C 


R9 


B0E7 




















• 



eBTOEEBE' 



PRESENTS IT'S 

UTILITY PAC II 




CHECKBOOK UPDATE TO DOS 

AN EXEC FILE WRITES OVER YOUR CHECKBOOK 
PROGRAM TO AUTOMATICALLY UPDATE IT TO DOS 

INDEX FILE UPDATE 

AUTOMATES BISHOP'S INDEX FILE 

FIND CONTROL CHARACTER 

WILL DISPLAY CONTROL CHARACTERS ON ANY 
CATALOG OR PROGRAM LISTING 

SLOW LIST 

FULL STOP § START CONTROL WITH EXIT. WORKS 
WITH APPLESOFT OR INTEGER BASIC 

LIST HEADERS 

PUT HEADERS ON YOUR LISTINGS WITH NO LINE 
NUMBERS OR REM STATEMENTS. AP II 

AUTO WRITE 

AUTO WRITE INSTRUCTIONS 

USE EXEC FILES TO APPEND, ADD SUBROUTINES, 
OR EDIT PROGRAMS. CONVERT INTEGER TO APPLE- 
SOFT. DELETE ILLEGAL LINE NUMBERS ETC. ETC. 

EXEC READER 

READS TEXT FILES FOR ABOVE 

DISC SPACE 

COMPLETELY WRITTEN IN APPLESOFT. WORKS 
IN 3 SECONDS. GIVES FREE SECTORS AND BYTES 
WITH LISTINGS AND DOCUMENTATION, PRICE $19.95 

* DISC MANAGEMENT SYSTEM 

EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX § CATAGORIZE ALL 
PROGRAMS WRITTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH, EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIK PAGE BOOKLET PROVIDES DETAILED, 
EDUCATIONAL TEQUNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF THE DOS COMMANDS. 

SYSTEM REQUIREMENTS: DISK II $ APPLESOFT TAPE OR ROM 
PRICE $19.95 ON DISK FOR EITHER OF ABOVE 

[PROCESSED 5 SHIPPED WITHIN 4 DAYS) 
SEND CHECK OR MONEY ORDER TO: 

DSOFTOUCH aHKl 

P.O. BOX 511 JUH 

LEOMINSTER, MASS. 01453 ~ -"-' 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





1SO-1 *\) lSO-2 

Power Line Spikes, Surges & Hash could be che culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
♦ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $54.95 

♦ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $54.95 

•SUPER ISOLATOR (ISO-3), similar to ISO-1 A 

jxcept double filtering & Suppression .... 
♦ISOLATOR (ISO-4), similar to ISO-1 A except 

jnit has 6 individually filtered sockets .... 
•ISOLATOR OSO-5), similar to ISO-2 except 

jnit has 3 socket banks, 9 sockets total . . . 
•CIRCUIT BREAKER, any model {add-CB) Add 
•CKTBRKR/SWITCH/PILOTany model 

(-CBS) Add $11.00 

PHONE ORDERS 1-617-655-1532 

IS? Electronic Specialists, Inc. 



$79.95 

$93.95 

$76.95 
$ 6.00 



171 South Main Street, Natick, Mass. 01760 



Dept-TTU 
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EVERYONE ON YOUR XMAS 
LIST... INCLUDING 




IN BLACK a V\/HITE 

C IP MFl $995! First floppy disk based computer 
for under $1000! Same great features as the C1 P plus more 

memory and instant program and data retrieval. Can be 

expanded to 32K static RAM and a second mini-floppy. 
It also supports a printer, 



modem, real time clock 
and AC remote interface 

aswellasOS-65D 
V3.0 development 
disk operating 
■system. 




C2-8P:$799! 

can be expanded to 

features of the C2 

8 slot BUS(3-time; 

ability than the C2 

to48K RAM, dual flof 

printer and but 

C2-4P MFl $1533! It'sa big personal 
computing mini-floppy system at a special package 
price. Contains the famous C2-4P microcomputer 
with 20K static RAM, 5" mini-floppy unit for instant 
program and data loading, RS-232 circuitry 
(for optional modem and printer), 'and diskettes 
featuring exciting games, personal, 
business and education 
applications. 



w^"*lKl $0*70 ! The professional portable that has over 3-times the display QO 

capability of 1 P's. Features 32 x 64 character display capability, graphics, full . . 
computer type keyboard, audio cassette port, and 4 slot BUS (only two used in 

base machine). It has 8K BASIC, 4K RAM, and can 4 P c 

be expandedto32KRAM,dualmini-floppiesand '' 

a printer. as 

16 colors AND COLOR 

The C4P and C8P offer a brilliant array of 16 colors including 
black available in both alphabetics and graphics. The C4P and C8I 
fast as Apple II, or Commodore PET and 
over THREE times as fast as TRS-80. more 
display than other personal computers . 




Ol r I 3>w*K7 ! A dramatic breakthrough in price and per- 
formar ce. Features OSI's ultra-fast BASIC-in-ROM, full graphics 
display capability, and large library of software on cassette and 
di ;k, including entertainment programs, personal finance, 
sm all business, and home applications. It's a complete pro- 
gram mable computer system ready to go. Just plug-in a video 
moni tor or TV through an RF converter, and be up and running. 
1 5K total memory including 8K BASIC and 4K RAM — 

expandable to8K. 
The personal class computer that 
a full business system. Has all the 
4P plus an 
i greater expansion 
-4P). Can be expanded 
ipies, hard disk, 
iness software. 




Or Ur I $fcv9w! A full business system a vail- 
at a personal computer price! The system includes the 
werful C2-8P microcomputer (32K RAM expandable to 
dual 8" floppy unit (stores 8-times as much information 
i mini-floppy), and 3 disks of personal, educational and 
small business applications software. Has all the capa- 
bilities of a personal system including graphics plus 
the ability to perform Accounting, Information Manage- 
ment, and Word Processing tasks for small business. 

' have execution speed that is twice as 



BEAT THE RUSH-ORDER NOW! 



Apple II. Commodor e PE T, TRS-BO. and Atari 800 are reqisteredjrade names ol A pple Computer Inc., Commo dore Business Maci ines Ltd., Radio Sha ck, Atari, respectively. 



Name 



Address 

City 

State __ 



-Zip_ 



Phone 



CDiTlPUTERSHaP 

Boston Union N H Cambridge 

, 590 Comm. Ave. Hie. ibti 288 Norfolk St. 

{across from B.U.) 603-473-2323 (near M. IT.) 

247-0700 661-2670 



C Send me a 
Paynentby:BAC(VlSA) 
Cred tCard Account P _ 



> enclosed 

.Master Charge 



Expir ;s 

TOTALCHARGEDOR ENCLOSED 

All or lers shipped insured UPS unless otherwise requested 



Some Useful Memory Locations and 
Subroutines for OSI BASIC in ROM. 



S.R. Murphy 

201 N. W. 48th 

Seattle, WA 98107 



If you want to know more about your OSI BASIC, infor- 
mation is presented which deta Is the use of RAM 
Scratch Pad Memory and shows where some of the 
most important Support Subroutines reside. 



MICRO has published very little on 
OSI's BASIC in ROM system. One can 
only guess that fewer OSI owners are in- 
clined to explore their machines and 
bend their functions to their own uses in 
contrast, perhaps, to owners of other 
6502 systems. This is a pity because, in 
contrast to what I read about PET, for ex- 
ample, the BASIC ROM's and the 
EPROM's that support BASIC, keyboard 
polling, and the MONITOR are all easily 
accessed by PEEK or through the 
MONITOR. 

This note may stimulate other OSI 
BASIC in ROM owners to try some soft- 
ware ideas for custom uses. The follow- 
ing listing of BASIC pointer and 
subroutine locations make it possible to 
modify programs written for other 
MICROSOFT 6502 BASIC interpreters for 
use with OSI. 

MICRO, number 6, pages 49-50, gave a 
"PARTIAL LIST OF PET SCRATCH PAD 
MEMORY", by Gary A. Creighton. Since 



MICROSOFT supplied the BASIC inter- 
preter for both OSI and PET, i. principle 
of parsimony suggests that th<ire should 
be a strong similarity between the two 
systems even though OSI usns a more 
primitive cassette I/O systen without 
the file commands. 

Table 1 represents the essence of this 
similarity in parrallel to the PET table. 
The notation is essentially tho same as 
Mr. Creighton's except for t le use of 
Hex rather than Decimal. 

IND (XY) is an address with the low 
byte in location $XY and the high byte in 
location $XY + 1. 

M(XY) is the content of memory loca- 
tion $XY. 

The description also follows the 
original with the appropriate modifica- 
tions for OSI operations. The Uble is not 
complete, but, to the best of my 
knowledge it is accurate. 



Finally, in MICRO, number 11, page 
37, Don Rindsberg presented an im- 
pressive BASIC renumbering program. I 
have not yet converted the program to 
OSI because a BASIC renumbering 
capability is not one of my favorite 
needs. However, for OSI owners who 
would like to "roll your own" following 
Mr. Rindsberg, Table 2 is presented as a 
substitution for his Table 1 on page 38 
that lists the BASIC subroutines needed 
in his program. The subroutines in Table 
2 can, of course, be used for other pur- 
poses. $B95E is an excellent Hex to 
Decimal converter that can be called 
with a simple machine language pro- 
gram. Similarly, $A77F can be the basis 
for Decimal to Hex conversion. $A8C3 is 
a general purpose message printing 
routine that is easily incorporated into 
any program. Finally, $A24D makes it 
relatively simple to modify BASIC pro- 
grams under computer control. 
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Table 1 

A Partial List of OSI BASIC 
in ROM Scratch Pad Memory 

(Ref. MICRO, No. 6, Pgs. 49 - 50) 

IND(01) Initially, address of cold start ($BD11). 

Replaced by warm start ($A274). 

IND(06) USR INVAR address. 

IND(08) USR OUTVAR address. 

IND(OB) USR program address. 

M(0D) Number of NULL'S selected. 

M(0E) Terminal character count. 

M(0F) BASIC terminal width. 

M(11-12) Arguments of statements such as PEEK, 

POKE, GOTO, GOSUB, line numbers, etc. 

M(13-5A) Input buffer. 

IND(71) Scratch pad address for garbage collec- 

tion, line insertion, etc. 

IND(79) Address of beginning of BASIC code. 

($0301) 

IND(7B) Address of beginning of Variable Table. 

IND(7D) Address of first array entry in Variable 

Table. If no arrays, end of Variable Table. 

IND(7F) Address of end of Variable Table. 

IND(81) Lowest string address. 

IND(83) Scratch pad string address. 

IND(85) Address, plus one, of highest allocated 

memory. 

M(87-88) Present BASIC line number. 

M(89-8A) Line number at BREAK. 

IND(8B) Pointer to BASIC code for CONT. 

M(8D-8E) Line number for present DATA statement. 

IND(8F) Address of next DATA statement. 

IND(91) Address of next value after comma in pre- 

sent DATA statement. 

M(93-94) ASCII code for present variable. 

M(BC-D3) Subroutine: Points through code one 
byte at a time, RTS with code value in A 
and carry clear if ASC(0 - 9); otherwise, 
carry set. Return A = if end of line. Ig- 
nores spaces. 

IND(C3) Code location pointer for above 

subroutine. 

M(AF-BO) USR input variable storage. 

M(FB) MONITOR keyboard control flag. 

( = for keyboard). 

M(100-107) Storage of conversion of floating point 
number to ASCII. 

M(1FF) Top of BASIC stack. 

M(200-20E) Temporary storage for CR simulator 
subroutine ($BF2D). 

M(212) CTRL C flag. 

( =$01 if CRTLCoff). 

M(213-216) Temporary storage, keyboard polling pro- 
gram (#FD00). 



$A24C 



$A24D 



$A77F 



$B7E8 



$B408 



$B96E 



$A274 
$A8C3 

$B95E 



Table 2 

OSI BASIC Routines Needed for 
BASIC Renumbering 

(Ref. MICRO, No. 11, Pg. 38) 

D rint an error message from the message 
:able. Enter with X containing the location of 
:he message relative to $A164. Message ter- 
minator is ASCII having bit 7 on. 

3ASIC line insertion routine: Enter with line 
assembled in the line buffer $0013-$005A with 
)0 as line terminator. Also, character count 
nust be in $005D and the line number(hex) at 
(0011/12. 

Evaluate an expression whose beginning ad- 
Iress is in $00C3/C4. Use this subroutine to 
convert from ASCII to binary, with the result 
appearing in the floating accumulator: 
■ W0AC/AD/AE/AF. 

Convert fixed number in $00AD7AE to floating 
lumber. Enter with the result appearing irr 
he floating accumulator: $00AC/AD/AE/AF. 

Donvery binary value, such as line number, in 
loating accumulator to two-byte fixed 
lumber and place in $0011/12. 

Convert floating number at $00AC/AD/AE/AF 
o ASCII and place in string starting at $0101, 
receded by a space or minus sign at $0100 
ind terminated by 00. 

3ASIC warm start. Prints "OK". 

3 rints message. Enter with ADH in Y, ADL in 
A. Message is ASCII string ending with 00. 

D rint the decimal integer whose hex value is 
n registers A and X, for example, a line 
lumber. 



I3EST of MICRO Volume 2 

is available now. 

All of the in portant material from MICRO issues 7 through 12 
(Oct/Nov 78 to May 79) presented in convenient book form. The 
book is 8V: by 11 inches, 224 pages, and the material is 
organized t>y major computer type: AIM/SYM/KIM, APPLE, 
PET, : .and GIINERAL material. This is a companion volume to 
BEST of MIORO Volume 1 which covered issues 1 to 6. 

BEST of Ml :RO Volume 2 is available at your local computer 
store for $£.00, or may be ordered directly from MICRO with 
delivery anywhere in the world at: 
$9.00 Surface Mail, or, 
$13.00 Ai Mail. 



BEST of M CRO Volume 

dealer for $3.00 or by mai 
$7.00 Sirface Mail, or, 
$1-0.00 Ai Mail. 
Send order; to: 
MICRO 

P.O. Box 6502 
Crelmsford, MA 01824 



1 is still available 
from MICRO at: 



from you local 
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A Tape Indexing System for the PET 



A solution is provided for the PET cassette tape prob- 
lem. Using inherent capabilities of the PET, a procedure 
is presented which permits use of the recorder's f nst for- 
ward and fast rewind facilities to rapidly index and por- 
tion of the tape. 



Alan R. Hawthorne 

611 Vista Drive 
Clinton, TN 37716 



A frustrating problem for PET owners 
occurs when it becomes necessary to 
toad a program or read a data file that 
has been written in the middle of a 
cassette tape. Since Commodore chose 
not to include a cassette recorder with 
an index counter, the user is left with the 
following options: 

1) Load only one program per tape. 
(This can make personal computing un- 
necessarily expensive for the hobbist 
with hundreds of programs.) 

2) Let the PET slowly search through 
the tape until it finds the correct file 
name. (This process is much too slow, 
since it can take up to 30 minutes to 
search one side of a 60 minute tape.) 

3) Guess where the program might be 
on the tape and run the tape to this point 
using the fast forward speed on the 
recorder; then let the PET begin to 
search for the program. (This guessing is 
no fun. One often runs past the desired 
program and wastes even more time). 

I decided that there must be a better 
way to use the PET for reading multiple 
files. An index finder on the recorder 
would, in essence, permit me to use op- 
tion 3 above, but with the guesswork 
reomved in positioning with the fast for- 
ward speed. I contemplated implemen- 
ting a photodetector and an LED as an 
index counter, but this would require 
modification of the recorder plus hard- 
ware for counting and displaying. A 
much simpler solution would be to 
develope a software index counter that 
would take advantage of existing 
recorder switch-sensing and motor- 
control capabilities of the PET. The 
machine language program, described 
below, uses an index number correspon- 
ding to each program position on the 



tape. Also given is the methoc for deter- 
mining the correct index nu Tiber cor- 
responding to each program on the tape. 

Indexing Approach: Theory 

A successful tape positioning pro- 
gram can be implemented if the fast for- 
ward speed of the recorder is run for the 
correct length of time and if tr is correct 
length of time can be determ ned for a 
given program. 

The first requirement can be met easi- 
ly by using the PET's ability t3 sense if 
the recorder buttons are pressed and to 
stop the recorder under program control. 
The tape of interest is simply loaded into 
the recorder and rewound; the correct 
time constant for the desired p rogram is 
then entered into the PET. The position- 
ing program instructs the user to press 
"fast forward." The program waits until 
a recorder button depression is 
detected, then begins timing until a time 
corresponding to the index time has 
elapsed, at which point the recorder 
motor is stopped. A prompt character is 
output to the PET screen indicating that 
the tape is positioned at the beginning 
of the desired program on tapo and that 
the user should now pres the "stop" but- 
ton. Upon sensing the depression of the 
recorder stop button, the indexing pro- 
gram places the recorder undisr manual 
control for subsequent use in loading 
the program from tape and then exits to 
the operating systems monitDr. If this 
machine language positioning program 
is stored in a safe memory stch as the 
cassette number 2 buffer (M826-M1023) 
when the PET is powered up, it will 
always be available for positioning pro- 
grams and data files with no time lost in 
loading the program each time it is need- 
ed. 



The second requirement for im- 
plementing an indexing system, that of 
determining the correct time constant 
for a given program, is more demanding. 
Not being able to read the tape header 
while the recorder is running fast for- 
ward, one must find another means of 
determining the fast forward time re- 
quired for positioning a tape. A related 
time that can be obtained easily is the 
amount of time required to rewind the 
program tape. The PET can detect when 
the rewind button is depressed and can 
count time until the user presses "stop" 
when the tape is rewound. This time can 
be directly, although not simply, cor- 
related with the fast forward time re- 
quired to position to the beginning of the 
program to be entered. Of course the 
problem in relating the rewind speed to 
the fast forward speed occurs because 
the tape speed (cm/sec pass the 
recorder head) varies even though the 
drive speed (revolutions/sec) is the same 
in each direction. (That the drive speed 
is the same fast forward as rewind is 
easily proven by measuring the time 
taken to run through a complete tape in 
the fast forward mode. This time can be 
compared with the time taken to rewind 
the tape. The two times should be ap- 
proximately equal.) 

With the forward and reverse drive 
speeds the same, the following integral 
equation can be used to relate the re- 
wind time (tr) and the fast forward time 
(tf) in terms of the minimum tape radius 
(ro), the rate of radius change (c), and the 
time (tm) required to rewind the tape 
from the end to the beginning. 



f 



' f (r + ct)dt = S r [r n + c(t m - t)]dt 



This equation can be solved for the fast 
forward speed: 
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Listing 1. 



f 
where 



970 


20 


DO 


D6 




JSR 


54992 


973 


A9 


10 






LDAIM 


16 


9 7 5 


2C 


10 


E8 


WAIT1 


BIT 


59408 


978 


DO 


FB 






BNE 


WAIT1 


980 


AQ 


02 


02 


NEXT 


LDA 


514 


So3 


CD 


02 


02 


WAIT2 


CMP 


514 


986 


FO 


FB 






BEQ 


WAIT2 


988 


C6 


08 






DEC 


08 


990 


DO 


F4 






BNE 


NEXT 


992 


C6 


09 






DEC 


09 


994 


10 


FO 






BPL 


NEXT 


996 


A9 


34 






LDAIM 


52 


998 


8D 


07 


02 




STA 


519 


1001 


A9 


3D 






LDAIM 


61 


1003 


8D 


13 


E8 




STA 


59411 


1006 


A9 


5F 






LDAIM 


95 


1008 


20 


D2 


FF 




JSR 


65490 


1011 


A9 


10 






LDAIM 


16 


1013 


2C 


10 


E8 


WAIT 3 


BIT 


59408 


1016 


FO 


FB 






BEQ 


WAITS 


1018 


A9 


00 






LDAIM 


00 


1020 


8D 


07 


02 




STA 


519 


1023 


60 








RTS 




(2t t + k 2 + 2kt - 
m r r 


V 


' 2 -k 


recorder is pressed, the cc 



t t - V 2 t 
m r r 



V 2 t 



The value for k can be determined for 
tapes of various lengths (15 min., 30 
min., 60 min., etc.) by running fast for- 
ward for a time, measuring the rewind 
time, and evaluating equation 3. This 
should be repeated for several different 
times and an average value obtained for 
k. 

Program Implementation 

Using the techniques outlined, a tape 
indexing program can easily be im- 
plemented for the PET. Listing 1 gives a 
machine language program that will run 
a tape fast forward for a given time and 
stop the cassette motor. The program is 
run, after the correct tape has been load- 
ed and rewound, by calling the user 
function X = USR (TC) where TC, the in- 
dex time constant, is the number of jif- 
fies required to position the tape cor- 
rectly. Time is evaluated in jiffies 
because the PET has a jiffy counter 
which is convenient to use and the tim- 
ing resolution provided is quite suffi- 
cient. 

The program uses several features of 
the PET's operating system. The 
subroutine at M54992 converts the argu- 
ment of the USR function from the 
floating accumulator to a 16-bit integer 
with the LSB in M8 and the MSB in M9. 
Bit 4 of M59408 senses the status of the 
recorder switches. If any switch of the 



bit is 0; otherwise it is 1. 

The jiffy counter, which the PET uses 
as a part of its real-time clock, is located 
in M514 and is incremented 60 times a 
second by the operating system. The 
cassette flag is located in M519. A 52 
must be loaded in order to control the 
recorder motor using the program and 
then restored to before exiting the pro- 
gram, leaving the recorder under manual 
control. With the cassette flag set cor- 
rectly, the recorder can be stopoed by 
the program by loading the value 61 into 
M59411. Finally, the subrout ne at 
M65490 is used to display a prompt on 
the video screen informing the user that 
the tape is positioned and that the 
"stop" button should be pressed 

The positioning program can be called 
either from a BASIC program or by direct 
command. Listing 2 is a BASIC program 
for loading the machine language pro- 



gram into memory when the PET is 
powered up. The program is stored in the 
upper portion of the number 2 cassette 
buffer and will remain loaded until the 
user writes over the memory or the PET 
is reset. This location leaves available 
protected memory from M826 to M970 
for other machine language programs. 

Listing 3 is a BASIC program called 
TAPE capable of providing several 
useful functions for a tape indexing,, 
system. The program, as currently 
dimensioned, indexes 10 tapes with up 
to 10 programs per tape. The functions 
are available by entering various com- 
mands. To position a tape for reading 
program number k on tape numberi. , 
enter R. (The machine language program 
of Listing 1 is assumed to be loaded.) To 
update a program name or index time 
constant in the index, enter a U. The tape 
number and program number will be re- 
quested by the program. 

To determine the rewind time and fast 
forward time for a program number k, 
enter a T. The tape containing the pro- 
gram to be indexed should be positioned 
so that it is at the end of the program. If 
the tape is not at this point it can be 
positioned by verifying, using the pro- 
gram name (i.e., VERIFY "program 
name"). This will position the tape cor- 
rectly, even though a verify error will oc- 
cur. The time constant measured and 
displayed using the T command is ac- 
tually the index time for the program 
k + 1 and is automatically entered into 
the index by the T command, so that the 
U command is not needed. 

To look at the index of a given tape, 
enter I and the tape number. The index 
will appear on the PET screen with the 
program number, name, and time cons- 
tant displayed. To save the index data 
file, an S command is entered. The index 
file should be saved if any tape index 
was updated or added to by using the T 
command. The data file is placed direct- 
ly following the BASIC program TAPE on 
the tape. This is done by verifying TAPE 
before writing the data file. If the index 
data file has never been written on tape, 
the TAPE program should be entered at 
10200 (i.e., RUN 10200) instead of 10000 
since the first thing the program does is 
read the data file. 

The most important part of the TAPE 
program is the index time constant 



00 


REM 


TAPE 


10 


DATA 


32, 


20 


DATA 


251, 


30 


DATA 


198, 


40 


DATA 


52, 


50 


DATA 


169, 


60 


DATA 


232, 


70 


FOR 


A=970 


80 


POKE 


1, 2 


90 


END 





Listing 2. 

POSITIONING PROGRAM, X=USR(TC) 
208, 214, 169, 16, 44, 16, 232, 

173, 2, 2, 205, 2, 

8, 208, 244, 198, 



141, 7, 2, 169, 61 
95, 32, 210, 255, 
240, 251, 169, 0, 
TO 1023: READ B : 



208 

2, 240, 251 
9, 16, 240, 169 

141, 19, 232 
169, 16, 44, 16 
141, 7, 2, 96 
POKE A,B : NEXT 



202, 



POKE 2,3 



determining routine. In order to use the 
machine language positioning program, 
all that is needed is the time constant. 

If one simply writes the time constant 
by the program name on his tape label, 
there is no need for the TAPE program to 
be used each time a specific program is 
to be read. Instead, TAPE will most likely 
be read when index editing or surveying 
is desired. The pertinent lines for obtain- 
ing the index time constant are 
14100-14700. The values determined for 
tm and k in equation 2 were 6000 jiffies 
and 5000 jiffies respectively, for a 60 
minute tape. 

Although the constants for a 30 
minute tape were somewhat larger than 
half the 60 minute tape constants, the 
relatively low degree of accuracy re- 
quired to position within the 10 second 
buffer written by the PET prior to each 
program allows considerable freedom in 
the selection of the constants. Line 
14400 uses the PET BASIC function 
WAIT to monitor the recorder buttons in 
measuring the rewind time. The user 



should try to press "stop" as soon as 
the tape is rewound, since considerable 
error can be introduced if the rewind 
time is not measured consistently. 
Final Comments 

Perhaps a word of caution is in order. 
The user should avoid placing programs 
that may require extensive revisions in 
the middle portion of a tape, since the 
revised program might then extend on to 
the next program on the tape. However, 
once a program has been developed, the 
use of multiple files per tape is often 
quite convenient. 

After implementing the tape ndexing 
and positioning programs, I find that I no 
longer dread the thought of having to 
read a program from the middle of a 
cassette. In fact, reading the seventh or 
eighth program on the tape takes only 
slightly longer than reading the first pro- 
gram. Hopefully, other PET enthusiasts 
will find the program useful. In any case, 
discovering and utilizing some of the 
"hidden" powers of my PET was half the 
fun. 



/S 



Listing 3. 

10000 DTM TN$(10,10),TM(10,10) 

10050 OPEN 1,1,0, "TAPE INDEX" 

10070 F0RJ=1T010 

10100 F0RI=1T010:INPUT#1,TN$(J,I) f T$:TM(J,I)=VAL(T$):NEXT:NEXT 

10150 CLOSE 1 

10200 PRINT"R : READ, U: UPDATE, T: TIME, I: INDEX, S: SAVE" 

10250 PRINT»TAPE # & COMMAND" :INPUTL , C$ 

10300 IFC$="R"THENG0SUB12000:G0T010200 

10400 IFC$="U"THENG0SUB1 3000 :G0T01 0200 

1 0500 IFC$= "T"THENG0SUB 1 4000 : GOT0 1 0200 

10600 IFC$="I"THENG0SUB1 5000 :G0T01 0200 

10700 IFC$="S"THENG0SUB1 1000:GOT010200 

10800 PRINT" ?/7":GOT010200 

11000 PRINT"TAPE REWOUND" :INPUTY$ 

11100 VERIFY"TAPE":WAIT59408,16 

11200 POKE243,122:POKE2Ji4,2:OPEN1,TV ! TAPE INDEX" 

11300 F0RJ=1T010 

11400 F0RI=1T010:T$=STR$(TM(J,I)):PRINT#1,TN$(J,I)»,"T$:NEXT 

11500 NEXT 

11600 CLOSE 1: RETURN 

12000 PRINT»ENTER PGM # ":INPUTK 

12100 PRINT"TAPE ";L;" LOADED & REWOUND" :INPUTY$ 

12200 PRINT"PRESS f-f n :X = USR(TM(L,K) ) 

12300 RETURN 

13000 PRINT"ENTER PGM # TO UPDATE (0 TO EXIT) » : INPUTK 

13100 IFK=0THENRETURN 

13200 PRINT"NEW TITLE" :INPUTTN$(L ,K) 

13300 PRINT»NEW TIME" :INPUTTM(L,K) 

13400 GOT0 13000 

14000 PRINT"PGM # & TITLE" :INPUTK ,TN$(L ,K) 

14100 PRINT"ENTER 1 FOR 30 MIN TAPE, 2 FOR 60 MIN K 

14200 INPUT2:MX=3000*2:TK=2500*2 

14300 PRINT"PRESS REWIND" 

14400 WAIT59408 , 16 , 16 :T=TI :WAIT59408 ,16 

14500 T=TI-T:PRINT"REWIND TIME = ";T 

14600 TM(L,K+1)=INT(SQR(2*MX*T+TKT2+2*TK*T-T>p2)-TK) 

14700 PRINT"FAST FORWARD TIME = ";TM(L,K+1) 

14800 RETURN 

15000 PRINT"*", "«««TAPE ";L;" INDEX***" :PRINT 

15100 FORI=1TO10:PRINT"#";I;TN$(L,I);TAB(32);TM(L,I):PRINT:NEXT 

15200 RETURN 



Class d Ads 



PET LANGUAGE MACHINE GUtDE- 
cpmpre^ensive manual to aid the 
machine language prograrnmer, More 
than 30 routines are fully detailrd so 
$hat the reader can put them to use 
immediately. Specify otd or new 
ROMS; $6.95 plus .75 for postage, 
Visa or Mastercharge accepted. 
Money back guarantee (10 days). 
Contact: 

ABACUS SOFTWARE 

P,0. Box72t1 

Grand Rapids, Ml 49510 •-;.;-, 

NEW BOWLING PROGRAM FOR AP- 
PLE: One to four players compete in a 
standard bowling game. Challenging 
game with excellent quality AP- 
PLESOFT program. Cassette $9.&5 r 
Order from: 

C,E. Howerton 
125 Marcelia Road 
f Hampton, VA 23666 

AIM 65 NEWSLETTER 

Sfx bimonthly Issues for $5.00 in U^s: ; 

;■ The Target,, c/o Donald Clem 

^0r:..-,'RB.-|[iQ."4 ::■■.-"'. 
Si'^ : : ; v:^P^®^P% -Qh^M^aT ^ ■ :, .':■"..; 

Advertising Software for APPLE: 
$25 buys SCROLLING WONDER, 

iJtPft^N&M E WC$:^0n ; ^assett%. 

16kk 425 buys -I^IWws«^«ftifi- 

fpEft£EAVE& fe«K?£fc6£E, and 

.1«y^sa^ 

ABSTRACT ART; on cassette, 32kb. 

:<|e&ff;cne^ 

218 Huntington Rd. 
Bridgeport, CT 06608 

EXTENDED MONITOR for TIM reads 

^ofwfflea 

SASA or phone for info: 
PhilLange 
206 Santa Clara Ave. 

; #Sr-feytoh, ; ; "'0-^ 

%5 : >; 3 ifiiat .2j»(MQft # s; :M ;; ■/■ ?■ ; : ^ ■ ; 

OPTIMIZE APPLESOFT pgms: 

||i*&jrSs7:« 

p&feriaXe Jrnesr ; : VTfittttsnber;;-'..: f Ust- 
variable cro^s-Merences, (2) 1.3K 
programs ; for P6-4$K) Apple W&, 
O0^^^P5ii^^irom: :.'■ 

Sensilrfe Software 

P;6. Bdx2395 
: " pe^rbOT^WL 48^23 

More Classifieds on page 20. 
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A Warning: 

The MflCROTcfl 7 

is for Professional 
Programmers — and Very 
Serious Amateurs — Only 

Now: a machine language pro- 
gramming powerhouse for the 
knowledgeable programmer who 
wants to extend the PET's capa- 
bilities to the maximum. The 
MacroTeA, the Relocating Macro 
Text EditonAssembler from Skyles 
Electric Works. 

The Skyles MacroTeA is a super 
powerful text editor. 26 powerful 
editing commands. String search and 
replace capability. Manuscript feature 
for letters and other text. Text loading 
and storage on tape or discs. Supports 
tape drives, discs, CRT, printers and 
keyboard. 

The Skyles MacroTeA is a relocating 
machine language assembler with true 
macro capabilities. A single name 
identifies a whole body of lines. You 
write in big chunks, examine, modify 
and assemble the complete program. 
And, when loading, the MacroTeA goes 
where you want it to go. Macro and 
conditional assembly support. Auto- 
matic line numbering. Labels up to 10 
characters long. 

The Skyles MacroTeA is an enhance 
Monitor. 11 powerful commands to 
ease you past the rough spots of 
program debugging. 

The Skyles MacroTeA is a warm 
start button. Over 1 700 bytes of 
protected RAM memory for your object 
code. 

There's no tape loading and no 
occupying of valuable RAM memory 
space: The Skyles MacroTeA puts 10K 
bytes of executable machine language 
code in ROM (from 9800 to BFFF — 
directly below the BASIC interpreter). 
2K bytes of RAM (9000 to 97FF). 

Like all Skyles Products for the PET, it's practically plug in 
and go. No tools are needed. And, faster than loading an 
equivalent size assembler/editor from tape, the MacroTeA is 
installed permanently 

The Skyles MacroTeA: 13 chips on a single PCB. Operates 

interfaced with the PET's parallel address and data bus or with 

the Skyles Memory Connector. (When ordering, indicate if the 

MacroTeA will interface with a Skyles Memory Expansion 

System. You can save $20.) Specifications and engineering are 

up to the proven Skyles quality standards. Fully warranted for 90 

days. And, as with all Skyles products, fully and intelligently 

documented. 

VISA, Mastercharge orders call (800) 227-8398 (Except Calif.) 
California orders please call (415) 494-1 210. 

Skyles Electric Works 

10301 Stonydale Drive, Cupertino, CA 96014, (408) 736-7891 



Subroutine Parameter 
Passing 



Mark Swanson 

177 Hastings Mill Road 

Streamwood, IL 60103 



A technique that makes it easy to pass parameters to 
subroutines is presented. While this method has been 
known and used for many years on the big computers, it 
may be new and useful to many microcomputerists. 



Passing information from a main pro- 
gram to a subroutine is usually done by 
either pushing it on the stack or storing 
the information in an area common to 
both routines. An alternative method in- 
volved having the parameters after the 
subroutine call. 

When a jump subroutine is executed 
the return address is stored on the stack 
and control is passed to the subroutine. 
If we put our parameters after the jump 
subroutine instruction, the return ad- 
dress on the stack will now point to this 
data. The subroutine can now pull the 
return address off the stack, fetch the 
parameters useing the return address, 
increment the return address to skip 
over the parmeters, and use this new ad- 
dress to return to the calling program. 

Here is an example of using this 
method of parameter passing to print a 
character string. The program MAIN 
contains a jump subroutine i:o the 
subroutine PTRSTR. The address of the 
beginning of the string follows the JSR 



instruction. The end of the string is 
marked by a zero byte. The routine first 
references the stack to get the return ad- 
dress and stores this in a temporary zero 
page location (locations zero and one). 
Using this address we now can access 
the string starting address located after 
the JSR. The string starting addrss is 
moved into a temporary zero page loca- 
tion (locations two and three). Using in- 
direct indexed addressing we load a byte 
of the character string, call a routine 
which prints a single byte, increments 
the Y register, and loops until the zero 
byte is found. After the entire string is 
printed, we increment the return address 
by two to skip over the string address 
parameters. We can now return to the 
calling program via an indirect jump to 
the temporary return address locations 
(locations zero and one). 

This method of parameter passing 
can be very useful when dealing with 
subroutines that are called frequently or 
which pass large amounts of data. 



MAIN PROGRAM 



JSR 



5678 



PRTSTR JUMP TO SUBROUTINE TO PRINT A STRING 
$78 LOW PORTION OF STRING ADDRESS 
$56 HIGH PORTION OF STRING ADDRESS 

RETURN HERE TO CONTINUE PROCESSING 

"PRINT THIS MESSAGE" 

$00 HEX ZERO TO MARK END OF STRING 



ASSEMBLE LI 



0100 ;MOVETBL 1 TO TBL2 












0110 




. BA 


$400 


0400 — 


A/ 


0B 




0120 


LOOP 


LDY 


#00 


0402 — 


B9 


0B 


04 


0130 




LDA 


TBL1,Y 


0405— 


89 


0B 


05 


0140 




STA 


TBL2,Y 


0408 — 


C8 






0150 




INY 




0409 


D0 


F7 




0160 
0170 
0180 




BNE 


LOOP 


040B 








TBL1 


.DS 


256 


050B 








0190 
0200 
0210 


TBL2 


.DS 


256 
. EN 


LABEL 


FILE 




= E 


■XTER 


NAL 






START 


= 04C 


D0 




LOOP = 0402 


TBL1 =040 


TBL2 = 


050E 


I 












110000 


060B.06C 


)B 











PRINT STRING SUBROUTINE 

MARK SWANSON 

SUBROUTINE TO PRINT A STRING OF CHARACTERS 



023A 




ZERO 


* 


$00E0 


023A 




ONE 


* 


$00E1 


023A 




TWO 


* 


$00E2 


023A 




THREE 


* 


$00E3 


023A 




STACK 


* 


$0100 


023A 




PUTCHR 


* 


$1234 


0200 






ORG 


$0200 


0200 


D8 


PRTSTR 


CLD 




0201 


BA 




TSX 





SOME PRINT CHARACTER SUBROUTINE 



CLEAR DECIMAL MODE 
TRANSFER STACK PTR TO X REG 



0202 E8 



0203 BD 


00 01 


0206 85 


EO 


0208 E8 




0209 BD 


00 01 


020C 85 


El 


020E 9A 




020F E6 


EO 


0211 DO 


02 


0213 E6 


El 


0215 AO 


00 


0217 Bl 


EO 


0219 85 


E2 


021B C8 




021C Bl 


EO 


021E 85 


E3 



SINCE POINTER ALWAYS POINTS TO NEXT POSITION 
AVAILABLE, INCREMENT BY ONE 



LOAD LOW PORTION OF RETURN ADDRESS 

SAVE 

INCR X TO NEXT STACK ENTRY 

LOAD HIGH PORTION OF RETURN ADDRESS 

SAVE 

RESET STACK POINTER 

ADDRESS OFF BY 1 , SO NOW WE 

INCREMENT IT 

HIGH ADDRESS TOO, IF NECESSARY 



LOAD FIRST PART OF STRING ADDRESS 

SAVE 

BUMP POINTER 

LOAD SECOND PART OF STRING ADDRESS 

SAVE 



INX 




LDAX 


STACK 


STA 


ZERO 


INX 




LDAX 


STACK 


STA 


ONE 


TXS 




INCZ 


ZERO 


BNE 


OVER 


INC 


ONE 


LDYIM $00 


LDAIY 


ZERO 


STA 


TWO 


INY 




LDAIY 


ZERO 



STA THREE 



0220 AO 00 
0222 Bl E2 
0224 FO 06 
0226 20 34 12 
0229 C8 
022A DO F6 

022C 18 



SUBROUTINE NOW HAS THE STRING ADDRESS 
NOW PRINT STRING UNTIL A HEX 00 IS FOUND 

LDYIM $00 ZERO Y REGISTER 
LOOP LDAIY TWO LOAD A CHARACTER OF STRING 
BEO FINISH IF EOUAL TO ZERO, FINISHED 
JSR PUTCHR SOME SUBROUTINE TO PRINT A CHARACTER 
INY INCREMENT POINTER 
BNE LOOP UNCONDITIONAL 



FINISH CLC 



022D A5 EO 
022F 69 02 
0231 85 EO 
0233 90 02 
0235 E6 El 
0237 6C EO CO END 



CLEAR CARRY 

INCREMENT RETURN ADDRSSS BY 

TWO TO SKIP OVER 

STRING ADDRESS PARAMETERS 

DONE IF NO CARRY 

BUMP HIGH ADDRESS IF CARRY 



LDA ZERO 

ADCIM $02 

STA ZERO 

BCC END 

INC ONE 

JMI ZERO JUMP INDIRECT TO RESUME MAIN PROGRAM 



To Order PftOGftAMM€ft'S ToolKit or MrcaoTcR — 

Custom designed to plug into your PET. So, when ordering, please indicate if your 
Toolkit: 



Is Programming Fu n? 

Have More Fun, 
Make Fewer €rrors, 
Complete Programs Much 
Faster . . . with the 

BflSICpROGRflMMCRS 

ToolKit™ 

Now you can modify, polish, simplify, 
add new features to your PET pro- 
grams far more quickly while reducing 
the potential for error. That all adds up 
to more fun . . . and the BASIC 
Programmer's ToolKit. 

The magic of the ToolKit: 2KB of 
ROM firmware on a single chip with a 
collection of machine language pro- 
grams available to you from the time 
you turn on your PET to the time you 
shut if off. No tapes to load or to 
interfere with any running programs. 
And the Programmer's ToolKit installs 
in minutes, without tools. 

Here are the 10 commands that can 
be yours instantly and automatically 
. . . guaranteed to make your BASIC 
programming a pleasure: 



AUTO 


RENUMBER 


DELETE 


HELP 


TRACE 


STEP 


OFF 


APPEND 


DUMP 


FIND 







Every one a powerful command to 
insure more effective programming. 
Like the HELP command that shows 
the line on which the error occurs 
. . . and the erroneous portion is 
indicated in reverse video: 



HELP 
500 J = SQR(A*B/! 



... Or the TRACE command that 
lets you see the sequence in which 
your program is being executed in a 
window in the upper corner of your 
CRT: 




... wi II be used with the Skyles Memory Expansion System, or 
...will be used with the ExpandaPet, or Expandmem 

...will be used with the PET 2001-8 alone 

(We furnish connectors to the memory expansion bus and to the second cassette interface. 

...will be used with the PET 2001-16, -32 (chip only) 



$80.00* 
$80.00* 
$80.00* 

$50.00* 



.will be used with Skyles MacroTeA 



$50.00* 



The Programmer's ToolKit is a 
product of Harry Saal and his 
associates at Palo Alto ICs. 

So, if you really want to be into 
BASIC programming — and you want 
to have fun while you're doing it, order 
your BASIC Programmer's Toolkit 

Your MacroTeA. Custom designed for your PET. So specify your PET model when ordering. $395.00* now. We quarantee you'll be de- 

(Important Savings: If it's to be used with a Skyles Memory Expansion System, the MacroTeA can lighted with it. 

plug directly into the Skyles connector. So you save $20. The Skyles MacroTeA is only $375.00 

when interfaced with the Skyles Memory Expansion System.) — ~ 

Send your check or money order to Skyles Electric Works. VISA, Mastercharge orders may call (800) 

227-8398. (California residents: please phone (415) 494-1210.) 

Ten Day Unconditional Money-Back Guarantee on all products sold by Skyles Electric Works, except chip only. 

California residents: please add 6-6Va% California sales tax. 

Skyles Electric Works 10301 Stonydale Drive, Cupertino, CA 95014, (408) 735-7891 




Presents 
Software and Hardware for your APPLE 



SALES FORECAST provides the best forecast using the four 
most popular forecasting techniques: linear regression, log 
trend, power curve trend, and exponential smoothing. Neil D. 
Lipson's program uses artificial intelligence to determine the 
best fit and displays all results for manual intervention. $9.95 

CURVE FIT accepts any number of data points, distributed in 
any fassion, and fits a curve to the set of points using log 
curve fit, exponential curve fit, least squares, or a power curve 
fit. It will compute the best fit or employ a specific type of fit, 
and display a graph of the result. By Dave Garson. $9.95 

PERPETUAL CALENDAR may be used with or without a 
printer. Apart from the usual calendar functions, it computes 
the number of days between any two dates and displays suc- 
cessive months in response to a single keystroke. Written by 
Ed Hanley. $9.95 

STARWARS is Bob Bishop's version of the original and best 
game of intergallactic combat. You fire on the invader after 
aligning his fighter in your crosshairs. This is a high resolution 
game, in full color, that uses the paddles. $9.95 

ROCKET PILOT is an exciting game that simulates blasting off 
in a rocket ship. The rocket actually accelerates you up and 
over a mountain; but if you are not careful, you will run out of 
sky. Bob Bishop's program changes the contour of the land 
every time you play the game. $9.95 

SPACE MAZE puts you in control of a rocket ship that you 
must steer out of a maze using paddles or a joystick. It is a real 
challenge, designed by Bob Bishop using high resolution 
graphics and full color. $9.95 

MISSILE ANTI-MISSILE displays a target on the screen and a 
three dimensional map of the United States. A hostile sub- 
marine appears and launches a pre-emptive nuclear attack 
controlled by paddle 1. As soon as the hostile missile is fired, 
the U.S. launches its anti-missile controlled by paddle 0. Dave 
Moteles 1 program offers high resolution and many levels of 
play. $9.95 

MORSE CODE helps you learn telegraphy by entering letters, 
words or sentences, in English, which are plotted on the 
screen using dots and dashes. Ed Hanley's program also 
generates sounds to match the screen display, at several 
transmission speed levels. $9.95 

POLAR COORDINATE PLOT is a high resolution graphics 
routine that displays five classic polar plots and also permits 
the operator to enter his own equation. Dave Moteles' program 
will plot the equation on a scaled grid and then flash a table of 
data points required to construct a similar plot on paper. $9.95 

UTILITY PACK 1 combines four versatile programs by Vince 
Corsetti, for any memory configuration. 

POSTAGE AND HANDLING 

Please add $1 .00 for the first item 
and $.50 for each additional item. 

• Programs accepted for publication 

• Highest royalty paid 



• Integer to Applesoft conversion: Encounter only those 
syrtax errors unique to Applesoft after using this program 
to convert any Integer BASIC source. 

• Disk Append: Merge any two Integer BASIC sources into a 
single program on disk. 

• Integer BASIC copy: Replicate an Integer BASIC program 
from one disk to another, as often as required, with a 
single keystroke. 

• Applesoft Update: Modify Applesoft on the disk to elimin- 
ate the heading always produced when it is first run. 

• Binary Copy: Automatically determines the length and 
starting address of a program while copying its binary file 
from one disk to another in response to a single key- 
stroke. $9.95 

BLOCKADE lets two players compete by building walls to 
obstruct each other. An exciting game written in Integer 
BASIC by Vince Corsetti. $9.95 

TABLE GENERATOR forms shape tables with ease from direc- 
tional vectors and adds additional information such as star- 
ting address, length and position of each shape. Murray Sum- 
mers' Applesoft program will save the shape table anywhere in 
usable memory. $9.95 

OTHELLO may be played by one or two players and is similar 
to chess in strategy. Once a piece has been played, its color 
may be reversed many times, and there are also sudden 
reverses of luck. You can win with a single move. Vince Corset- 
ti's program does all the work of keeping board details and 
flipping pieces. $9.95 

SINGLE DRIVE COPY is a special utility program, written by 
Vince Corsetti in Integer BASIC, that will copy a diskette using 
only one drive. It is supplied on tape and should be loaded onto 
a diskette. It automatically adjusts for APPLE memory size 
and should be used with DOS 3.2. $19.95 

SAUCER INVASION lets you defend the empire by shooting 
down a flying saucer. You control your position with the pad- 
dle while firing your missile at the invader. Written by Bob 
Bishop. $9-95 

HARDWARE 

LIGHT PEN with seven supporting routines. The light meter 
takes intensity readings every fraction of a second from to 
538. The light graph generates a display of light intensity on 
the screen. The light pen connects points that have been 
drawn on the screen, in low or high resolution, and displays 
their coordinates. A special utility displays any number of 
points en the screen, for use in menu selection or games, and 
selects a point when the light pen touches it. The package in- 
cludes a light pen calculator and light pen TIC TAC TOE. Neil 
D. Lipson's programs use artificial intelligence and are not 
confused by outside light. The hi-res light pen, only, requires 
48K and ROM card. $34.95 

TO ORDER 

Send check or money order to: 

P.O. Box 273 

Plymouth Meeting, PA 19462 

PA residents add 6% sales tax. 



U.S. and foreign dealer and distributor inquiries invited 
All programs require 16K memory unless specified 



APPLE II Hires Picture Compression 



Every APPLE owner is aware of the wonderful pictures 
that can be made with the HIRES graphics. A very in- 
teresting technique is presented which allows greater 
efficiency in encoding picture information, and which 
leads to some additional special effects. 



Bob Bishop 

213 Jason Way 

Mountain View, CA 94043 



Almost every APPLE II owner has, by 
now, seen examples of how the APPLE II 
can display digitized photographs in its 
HIRES graphics mode. These images 
consist of 192 x 280 arrays of dots all of 
the same intensity. By clustering these 
dots into groups (such as in "dithering"), 
it is even possible to produce pictures 
having the appearance of shades of 
gray. Several "slide shows" of these 
kinds of pictures have been created by 
both Bill Atkinson and myself and are 
available through various sources, such 
as the Apple Software Bank. A typical 
"slide show" consists of about 11 pic- 
tures on a standard 13-sector disk. Why 
only 11 pictures? Because that's about 
all that will fit on a 13-sector disk. 

Each HIRES picture must reside in 
one of the two HIRES display areas 
before it can be seen. The first area, 
$2000-$3FFF, is called the primary 
display buffer; the second area, 
$4000-$5FFF, is called the secondary 
display buffer. It is obvious that each of 
these display areas are 8-K bytes long. 
Consequently, HIRES pictures are usual- 
ly stored as 8-K blocks of data, exactly 
as they appear in a display buffer. But 
do they have to be stored that way? 

If you look closely at a HIRES picture, 
you can almost always detect small 
regions that look very similar to other 
small regions elsewhere in the picture. 
For example ; HIRES displays usually 
contain regions of pure white or pure 
black. In the case of dithered pictures, 
the illusion of gray may be caused by 
micro-patterns of dots that are similar to 
other gray patterns somewhere else. 
Clearly, HIRES pictures tend to contain 



a lot of redundancy. If there was some 
way of removing this redundancy then it 
would be possible to store HIRES pic- 
tures in less than the customary 8-K 
bytes of memory. 

Suppose we were to divide the display 
into small rectangular clusters, each 7 
bits wide, by 7 bits high. Then a picture 
would consist of 24 rows of Ihese pic- 
ture elements ("pixels"), with 40 of them 
per row. (Note the resemblance to the 
APPLE ll's TEXT mode of 24 lines, 40 col- 
umns per line!) The total number of pix- 



els that would be needed to define a 
HIRES picture would then be 40 times 
24, or 960. However, not all 960 pixels 
would be unique if there was redundan- 
cy in this picture. 

To try out these ideas, I used Atkin- 
son's LADY BE GOOD picture (from the 
Apple Magic Lantern — Slide Show 2) 
shown in Figure 1, and wrote a program 
to extract all the different pixels. I found 
that only 662 of the 960 pixels were uni- 
que. This meant that almost one third of 
the picture was redundant! 




Figure 1: (Max errors/pixel =0) 
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Figure 2: (Max errors/pixel =3) 



The next question that came to mind 
was: of the 622 unique pixels, how 'uni- 
que' were they? Was it possible that 
there might be two or more pixels that 
were almost the same, except for maybe 
one or two dots that differed? If so, then 
it could be possible to regard these as 
being identical 'for all practical pur- 
poses' since the error in the resulting 
picture would hardly be noticed. 

To examine this possibility, I modified 
my program to extract only those pixels 
that differed by more than a specified 
MAX ERRORS/PIXEL Table 1 shows the 
results. If we allow, at most, 1 dot to be 
wrong in any one pixel, then we need on- 
ly 492 pixels to define the picture, which 
is only about half of the original 960 pix- 
els! As we allow more and more errors 
per pixel, the number of pixels required 
to reconstruct the picture decreases ac- 
cordingly, until we reach 28 errors/pixel. 



At this point we are allowing half of the 
dots to be wrong. Since total black and 
total white are always included in every 
pixel set (to prevent black or white areas 
from becoming dotted), pictures with 
MAX ERRORS/PIXEL greater than or 
equal to 28 can always be composed of 
no more than two pixels, namely the 
black and white pixels. 

Suppose we now try to reconstruct the 
original picture from our extracted pixel 
set. Clearly, the fewer pixels we have 
available for synthesizing, the poorer the 
result will be. Figures 2 through 5 show 
the results of synthesizing LADY BE 
GOOD with MAX ERRORS/PIXEL of 3, 7, 
14, and 28. The number of pixels used in 
each case was 245, 75, 15, and 2, respec- 
tively. Notice that the difference in quali- 
ty between Figures 1 and 2 is not all that 
objectionable. The advantage that Figure 
2 has is that it can be stored in less than 




3-K bytes of memory! (245 pixels at 8 
bytes/pixel, plus 960 bytes to define 
which pixels go where.) 

Thus it is clearly possible to store an 
8-K HIRES picture in considerably less 
than 8-K bytes, if you are willing to ac- 
cept a little loss in the image quality. By 
using this principle, I have produced a 
"Super Slide Show" containing 33 pic- 
tures on a single disk. (Copies may be 
obtained from Apple's Software Bank.) 






Figure 3: (Max errors/pixel =7) 
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The Compression Program 

Listings 1 and 2 show the compres- 
sion routines (and some associated data 
tables), and require an APPLE II with at 
least 32-K bytes of memory. The routines 
consist of two basic parts— the 
"analysis" portion, and the "synthesis" 
portion. 

The analysis routine ($0B00) searches 
the primary HIRES display buffer 
($2000-$3FFF) and compares each pixel 
there with the pixels in its own current 
pixel table (which starts at $0600) look- 
ing for a "match". If it finds a pixel in the 
table that matches to within the 
specified MAX ERRORS/PIXEL (location 
$10), it calls a match and proceeds to the 
next pixel in the picture. If it fails to find 
a match, it adds the pixel to its current 
pixel table and then proceeds. 

The synthesis routine ($0680) works in 
the other direction. It first compares 
each pixel of the primary buffer with 
each pixel in the pixel table to find the 
best match. It then places this pixel in 
the corresponding location in the secon- 
dary HIRES buffer, thus synthesizing the 
best approximation to the primary pic- 
ture as it can by using the pixels in its 
pixel table.(Since the analysis routine 
doesn't know where its pixel table 
originated, it is possible to synthesize 
one picture from another picture's pix- 
els! The result is usually surprisingly 
good.) 

The routines are very easy to use. 
Simply load the picture to be compress- 
ed into $2000-$3FFF, set MAX ER- 
RORS/PIXEL into $10, and then call the 
routine at $0B00. When the routine 
returns, locations $07 and $08 contain 
the number of extracted pixels in the 
form: NUMBER = 1 + (contents of $07) + 
40* (contents of $08). 

To synthesize the picture from the ex- 
tracted pixels, simply call the routine at 
$0B80. When the routine returns, the 
reconstructed picture will be in the 
secondary HIRES buffer ($4000-$5FFF). 

If you have a 48-K APPLE and a disk, 
you can use the BASIC program shown 
in Listing 3. This program calls the com- 
pression routines (Listings 1 and 2) in a 
more user-oriented way so that they are 
even easier to use. The program displays 
a menu of options that let you; 

L— Load a picture from disk into 
the primary HIRES buffer 

1— Display the picture currently in 
the primary HIRES buffer 

2— Display the picture currently in 
the secondary HIRES buffer 

A— Analyze the primary picture 
(create the pixel table.) 

S— Synthesize the primary picture 
using the current pixel table. 

D— Issue disk commands. 
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Figure 4: (Max errors/pixel =14) 



X— Transfer the compressed 
picture to disk drive number 2. 

None of the selections require you to 
hit RETURN; just hit the corresponding 
character. When specifying "L", the pro- 
gram will ask you for the name of the file 
to be loaded. When specifying "A", you 
will be asked for the minimum error per 
pixel that you will allow. (This does re- 
quire a RETURN.). The "D" command 
will give a colon (:) as the prompt 
character and will allow you to issue 
disk commands. It will continue in this 
mode until you give it a null command 
(hit RETURN) at which time it will return 
to the menu. The "X" command saves 
the compressed picture (960 bytes) and 
its corresponding pixel table (up to'2K 
bytes) onto a disk file. (I will leave it up to 
the interested reader to figure out how 
to "un-compress" this data.) 



Concluding Remarks 

While the methods in this paper work 
pretty well, they may not represent the 
optimum way of compressing APPLE II 
picture data. For example, my choice of 
7x8 dot pixels was somewhat arbitrary. 
Is it possible to get better compression 
ratios by choosing smaller (or larger) pix- 
el sizes? 

Another interesting question is: Given 
a picture that was reconstructed from a 
given set of N pixels, is it possible to find 
another set of N pixels that gives a bet- 
ter result? 

I hope that these unanswered ques- 
tions will help motivate someone else in- 
to joining the investigation of HIRES pic- 
ture compressing methods. 




FigureS: (Max errors/pixel =28) 
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Listing 1. 
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1288 
1281 
1282 
1284 
1266 
1288 
128R 
1280 
128F 
i211 
1212 
1214 

1218 

i21C 
12.1F 
1228 

1 OTf 

•1 vvp 
122P 

1232 
1234 
1236 

JLw>.. 

123E 
1248 
1242 
1244 
1246 
1248 
124A 
124C 
124E 
1299 
125?' 
1254 
1256 
12SS 
125ft 
125; 
125E 



8587 
68 



98 
48 
A583 

8511 

A584 

8512 

282C12 

A513 



18 

A514 

6988 

fi508 

8511 
R51 ? 

A513 

fig 

8512 
8513 

8613 

mi 

8612 

8613 
2614 
6513 
8513 
ft§14 
6988 
8514 
R513 

ASM 
8514 



2248 
2258 
2260 
2278 
2288 
2298 
2308 
2318 
2328 
2338 
2348 
2358 
2368 
2370 
2380 
2398 
24m 
2418 

244£ 
24S6 

2476 



2492 

Bin 

254H 

2^# 

2!p 

(.. •*." i v . 

£. -..*•..■ i, 
fc- -..'•-• '..■■ 
2£#M 

26'* ?•■ 
2628 
2638 
2648 
2656 
2668 
2678 
2688 
2698 
2788 
2718 
2720 
2730 
2748 



STR*XHRJ? 
RTS 



YiL-yi 



2768 
2770 
2788 
2790 



HP 

ST0R TW 

PHfl 

LDfi 

STfi 

LDfi 

STfl 

JSR 

LDfl 

STfi 

CLC 

LDfl 

ADC 

STfl 

LDfl 

STfl 

LDfi 

STfl 

JSR 

LDB 

LDV 

STfi 

PLfl 

TflV 

RTS 
i (>o 

STfl 
LDfl 
STfl 
AS!.. 
R0L 

rol' 

flSL. 

R0!.. 

I w 

fiSL 
ROL 
fiSL 
ROL 
ADC 
STfl 
LDfi 
ADC 
STfl 

LDfl 
ADC 
STfl 
LDfl 
flC'C 
STfl 
RTS 



1288 



*XT0 
*XI« 
*VT0 

■mu 

X48 

*PR0D+88 
*T0 +88 

*PR0D+8i 

88 

*T0 +81 



*VRT 
*VJN 
X48 

(TO 



jW.iUi 
■■<<pC'}'fj 

00 

*ppnf).s.a-£ 

:<<pp|V : ;, 

*pPQf: 

*ppr?fwy:L 

sfeppjfjf^.J.^rf 
*Pf?ff f / 

.HcppQfH.yi 

gg 

^cpprjfv-j-gj 
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2889 X'ftT 



J 



283R 
2848 
2859 
286@ 
2879 



VTO 

?Tf\ 



m 



OS 08B7 



IJ 5 : 
D: 



29g0 yrwp nc ggcf;- 

2918 BEST . OS 8889 

2928 ftT . 05 88^: 

2938 TO . DS «*r 

2948 ERP . DS 0f»ie 

2958 XI N . CI mil 

2968 VIM . 01 9812 

2978 PROD 0L 881;' 

2998 H6RH . DS 00?? 

388« BITS OS 18^ 

3918 BELL . 0S< FF3P 

3828 END .EH 

Listing 2. 

8C88- 60 88 88 8h f# P& s¥< 8f< 

0C88- 88 88 88 88 88 88 88 88 

0C18- 88 88 88 88 86 88 88 8fi 

0818- 8i 88 88 Sd 86 88 88 fifi 

0C20- 88 88 88 88 88 88 m flfl 

8C28- 88 88 88 88 88 88 88 88 

0C36- 68 88 88 88 88 88 88 ft* 

0C38- 88 88 88 88 88 88 SB 88 

0848- 28 28 28 28 28 28 28 28 

0C48- R8 fie m m f$ m as 88 

0C58- 28 28 28 28 28 28 28 28 
0C58- 88 fl8 88 88 R8 88 ft8 fie 
0C68- 28 28 28 28 28 28 28 28 

©ess- m m 88 88 m m m m 

0C78- 28 28 28 28 28 28 28 28 
0C?8- R8 88 B8 88 88 88 ft8 88 
0888- 58 58 58 58 58 58 58 58 
0888- D8 m m 08 08 08 03 1)8 
0898- 58 58 58 58 58 58 58 58 
8C98- 08 08 08 08 M 08 08 08 
0CR8- 5§ 58 58 58 58 58 59 58 
8CH8- D8 : D8 DQ 08 06 08 09 08 
0CB8- 58 58 58 58 58 58 58 58 
0CB8- 08 08 08 OB 08 08 09 08 



0D88- 28 24 28 28 36 34 38 3C 

0088- 28 24 28 28 36 34 38 3C 

0D18- 21 25 29 20 31 35 39 30 

0D18- 21 25 29 20 31 35 39 30 

0020- 22 26 2ft 2E 32' 36 3ft 3E 

8028- 22 26 28 2£ 32 36 3ft 3E 

0038- 23 27 2B 2f 33 37 38 3F 



tsp,Tnr:- •>'; •:•*.' op oc t? '.>? ~'.o ~>c 

80-18- 28 24 28 2C 36 34 38 3C 

8048- 28 24 28 28 36 34 38 3C 

8058- 21 25 29 20 31 35 39 30 

8058- 21 25 29 20 31 35 39 30 

M0O : '- '"""' '-■'*' '?$ '.' : 'S-" ?'? 3£ "Wl "?!"' 

8088- 28 24 28 28 38 34 38 3C 

0088- 28 24 28 28 38 34 38 3C 

arm- -~"\ ^ >3 ?(••( ~<4 ~;H 7Q ?r. 

KJlsu- ».,*. U--W.' »..,* •-.{.' >>j, vJ -w.7 ^rfl.« 

pjftqcu ;:k > r -; oq ;>r? ?* 7^ TfQ 7r, 

Cfc.-^r J ..- i«^ t---- ».^ N.fc* WJ. WV/ W^r «^1.' 

0Dfle- 22 26 2ft 2£ 32 36 3ft 3E 

8088- 22 26 2ft 2E 32 36 3ft 3E 

8088- 23 27 2B 2F 33 37 38 3F 

m- 23 27 28 2F 33 37 38 3F 



m- 88 81 81 82 81 82 82 83 

1888- 81 92 82 83 82" 83 d2 84 

1818- 81 82 82 83 82 83 93 84 

1818- 82 83 83 84 83 84 94 85 

1833- 81 82 82 83 92 83 93 84 

1828- 82 83 83 84 83 8*1 84 85 

1838- 82 83 83 84 83 84 94 85 

1838- m 84 B4 05 84 85 95 86 

1848- 81 82 82 83 82 83 83 24 

1848- 82 83 83 84 83 84 94 85 

1858- 82 83 83 84 83 84 94 85 

1858- 83 84 84 85 8< 85 95 86 

1868- 82 B2. 83 84 83 84 94 85 

1868- 83 84 B4 85 84 85 85 % 

1878- 83 84 84 85 84 85 85 % 

1878- 84 85 85 86 85 86 86 87 

Listing 3. 

8 RES WRITTEN BY: BOB BISHOP 
18 DIH Hi- (48) 
26 flNRL=dl*256: SW-ffNflL+128: PRE£S= 

4996+2*256+8*16 
30 FLflG=0:XFLfl6*« 
190 CflLL -9Z€: POKE -16388,8: PfWTF 

-16383, 8 
118 TflB 17: PRINT "« E H U" 
128 TfiB 17: PRINT " ": PRINT 

130 PRINT : PRINT " L - LORD PICTU 

RE FROM DISK" 
140 PRINT : PRINT " ft - RNPLVZE PI 

CTURE INTO PIXELS" 
158 PRINT : PRINT " S - SVNTKESIZE 

PICTURE FR0H PIXELS" 
168 PRINT : PRINT " 1 - OISPLftV OR 

IGINftL PICTURE" 
178 PRINT : PRINT " 2 - OISPLftV Sy 

NTflESIZED PICTURE 9 



188 

ise 

195 

286 
218 
220 



print : print " d - issue disk 
commands" 

print : print " x - save compr 
essed picture to disk" 

VTfiB 29: PRIf-ff "SELECTION: " 



388 

310 

320 

338 

340 

353 

380 

378 

488 

580 

1880 

1835 

1810 

1815 



1850 
2888 



2818 

2828 
2825 

2838 



2835 
2840 



REM REfiD KEVBORRD 

CHRR-- PEEK (-16384) 

IF CHPR-C128 THEN 210 

POKE -16384+16, 8 

ID=8 

IF CHPR^ fiSCCt") THEN 10=1 

IF CHftR-|ftSC<"fl M ) THEN !D^2 

If ruHK- RhC<"S JI ) THEM ID".? 

re rwftp- p^vm" 1 * Tup.} in-d 

IFCHHR-!fiSC("D"> THEN ID~6 
rr puopn pcrv«v«'-< Turn HV-7 

IP ij>-8 THEN 188 

6bT6~ie8e*iD ~ w " 

VTfiB 28: TO 12: CfiLL -958: 

PRINT "LORD PICTURE" 
POKE -16300, ; PCH(F -16303, 
8 
VTfiB 22: INPUT "FILE NRHE: " 

fi$ 

IF f!$="" THEN 108 
VTfiB 22: PRINT "BLOfiD ";ft$; 
",fi$2883.Cl" 
GOTO 100 
VTfiB 20: TfiB 12: CfiLL -958: 

PRINT "f'HRLVZE PICTURE" 
POKE -16388, 8: POKE -16383, 



VTfiB 22: I INPUT "MAX ERRORS/PIXEL 



POKE 16/HflXERR: CfiLL ML 

FLfi6=l: XFLRG=8: Nl«B£R=48* PEEK 

<8)+ PEEK (7>+l 

VTfiB 22: PRINT "THERE fiRE " 

; NUMBER; 1 PIXELS WITH HflX ERROR 

= "iHFKERR 

POKE -16&4+16,8 

IF PEEK H.6384X128 THEN 2848 



2858 GOTO 188 

3088 VTfiB 28: TftP 12: PRINT "SVNTHESi 

ZE PICTURE" 
3885 POKE -16386, 8: POKE -16383, 

8: VTfiB 22: CfiLL -958 



3816 
3028 
3036 

3048 
3059 
3055. 
3060 
3878 



FOR K=l TO 580: NEXT K 

IF FLR6 THEN 305* 

VTfiB 2& PRINT "THERE fiRE NO PIX 

ELS DEFINED VET!" 

GOTO 3968 

CfiLL SVN 

XFLftG=i 

POKE -16384+16, 8 

IF PEEK! (-16384X128 THEN 3878 



3888 IF PEEK (-16384)= fiSCC'l") THEN 



3885 



218 



4888 



4858 



6088 

6885 

6818 
6815 



l?0 



owe 
78530 



7818 
7815 



IF PEEK (-16384)= fiSC("2") THEN 

218 

GOTO 188 

POKE -16384, 8: POKE -16382, 

0: POKE -16368/ 0: POKE -16297 

,8 

GOTO 208 

POKE -16304, 0: POKE -16382, 

0: POKE -16299,8: POKE -1629? 

,0 

ROTO 208 

VTfiB 287 TfiB 12: CfiLL -958: 
PRINT "DISK COMMAND" 
POKE -16300,8: POKE -16383, 



VTfiB 22: INPUT ":",RI 

IF R*-"" THEN 180 

wrm •:.-:•• top •?• C'&tmt <'<>■&* 

i iii^ i~w till.' »..- i i\i-,' f : J i rr 

I I •. X ■■ * t • I J •, A * * I • t t \ * 1 ': > 

GOTO 6818 

VTfiB 28: IRE' 12: CfiLL -95f ! : 

POKE -16388,8: POKE -16383, 

8 

jp XFLRG THEN 7825 

VTfiB 22T PRINT' "NO PICTURE HRS B 

m\ SYNTHESIZED VET!" 



7828 


GOTO 7048 






7825 


IF MJM8EK=S56 


THEN 7868 


7838 


VTfiB 22: PRINT 


"THERf 


• PRE TOO m 




NV <"; NUMBER;") 


PIXEi 


.S" 


7848 


POKE -16384+16, 


8 




7845 


IF PEEK (-16384 


f '.J.U.' 


THEN 7845 


7850 GOTO 188 






7868 


VTfiB 22: INPUT 
,R4 




NflME: " 


7865 


IFft*="" THEN 168 




7878 CfiLL PRESS 






7880 


VTfiB 22: PRINT 


"BSflVE ";R$; 




", fl$8883, L"; 960+2+8*NUMfiER; 




", D2" 






7898 


GOTO 188 
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X | 


1— 
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SCORE =108 



SCORE' 185 



DYIMAMAZE— a dazzling new real-time game. You 
move in a rectangular game grid, drawing or erasing 
walls to reflect balls into your goal (or to deflect 
them from your opponent's goal). Every ball in 
your goal is worth 100 points, but you lose a point 
for each unit of elapsed time and another point for 
each time unit you are moving. Control the speed 
with a game paddle: play as fast as ice hockey or 
as slowly and carefully as chess. Back up and re- 
play any time you want to; it's a reversible game. 
By Don Stone. Integer Basic (plus machine lan- 
guage); 32 K;$9.95. 



ULTRA BLOCKADE- the standard against which 
other versions have to be compared. Enjoy Block- 
ade's superb combination of fast action (don't be 
the one who crashes) and strategy (the key is 
accessible open space— maximize yours while min- 
imizing your opponent's). Play against another 
person or the computer. New high resolution 
graphics lets you see how you filled in an area— or 
use reversibility to review a game in slow motion 
(or at top speed, if that's your style). This is a 
game that you won't soon get bored with! By 
Don Stone. Integer Basic (plus machine language); 
32 K; $9.95. 



What is a REVERSIBLE GAME? You can stop the play at any point, back up and then do an "instant 
replay", analyzing your strategy. Or back up and resume the game at an earlier point, trying out a different 
strategy. Reversibility makes learning a challenging new game more fun. And helps you become a skilled 
player sooner. 



WORLD OF ODYSSEY— a new adventure game utilizing the full power of Disk II, which enables the player 
to explore 353 rooms on 6 different levels full of dragons, dwarfs, ores, goblins, gold and jewels. Applesoft II 
48K; $19.95 includes diskette. 

PERQUACKEY— an exciting vocabulary game which pits the player against the clock. The object of the 
game is to form words from a group of 10 letters which the computer chooses at random. The words must 
be 3 to 10 characters in length with no more than 5 words of any particular length. Each player has only 
3 minutes per turn. The larger the words the higher the score. Applesoft II 16K; $9.95. 

APPLESHIP— is a naval game in which two players enter their ships in respective oceans. Players take turns 
trying to blast their opponent's ships out of the water. The first player to destroy their opponent's ships 
may win the game. A great low-res graphics game. Applesoft II 32K; $14.95. 



Available at your 
local computer store 

Call or write for our free 
SOFTWARE CATALOG 

Apple II is a registered 

trademark of 
Apple Computer, Inc. 



DEALER INQUIRIES INVITED 



Programs Available on Diskette 
at $5.00 Additional 



POWERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



Check or Money Order 
Include $1.00 for 
shipping and handling 
C.O.D. ($1.00 add'tl. charge) 
Master Charge and VISA 
orders accepted 
New Jersey residents add 
5% sales tax 



waa® Euyas 



tm 



for AIM/SYM/KIM 




UPPER/lower case ASCII 
128 Additional User Programmable 
Characters: GRAPHICS- 

SYMBOLS-FOREIGN CHARACTERS 

Programmable Screen Format up to 
80 CHARACTERS - 24 LINES 

KEYBOARD and LIGHT PEN Interfaces 
Up to 4K DISPLAY RAM 
Provision for 2KEPROM 
Provision to add 6502 for 

STAND-ALONE SYSTEM 

ASSEMBLED AND TESTED 

WITH 2K DISPLAY RAM 

VIDEO PLUS: $245°° 




.A ProgrammablelChi^^ 



■underorpgrar*;e||p^^^ ' 



grayscale;/ and c|6ar$teff|^|i 

May be used witf^ar* ^iwe*f 

Up to 4K of Pisp*§y:J^lMg^ 
%r addition to the vi||ejJ»MatifiSi 
;;;r ; ;;AHeylK»ai^inter||Ber' 

video subroutines or the AIM version glass teietype mode. Either tape is available separately for $10. 

'^ispeclfyJyqur chbiciil " '" 



s o^frm.«iM^yep^p^^ 




Prfces listed above 
trtqlude 



Assembly Language 
Applesoft Renumber 



Alan D. Floeter 

4333 N. 71 Street 

Milwaukee, Wl 53216 



While there have been a number of programs published 
for renumbering APPLE BASIC, most have been written 
in BASIC and have therefore been slow. Here is a ver- 
sion written entirely in assembly language - very fast 
and very easy to use. 



Chuck Carpenter gave a program in 
the May, 1979 issue of MICRO for 
renumbering Applesoft programs. 
Although this is probably adequate for 
most needs, there were still several 
drawbacks. Among these are the follow- 
ing: 

1. User must make changes in BASIC 
instructions when the new line 
number has more digits than the 
original line number. 

2 . It is written in BASIC, so therefore, 

slower than a 6502 assembly 
language program. 

3 . The program will take up the same 

amount of memory, rather than 
reducing its size when it is possi- 
ble. 

4 . User cannot specify only a portion 

of the program to be renumbered. 

5 .The program did not work for all 

types of IF-THEN statements. 



Being a software person, I found it dif- 
ficult to turn down the challenge to 
answer these deficiencies. The results 
of my efforts are contained in the follow- 
ing assembly language program. 

To load the program, type in the hex 
numbers in the disassembled listing. 
This is written for ar32K or larger APPLE 
system. If you have a smaller system, 
you can go through the effort of 
relocating the program by hand. If you 
do relocate, be aware that the symbol 
table is stored at 7000 and continues as 
needed, using two bytes per line 
number. (A cassette version is available 
for $5 for any size system by contacting 
me. Make sure you state the amount of 
memory that you have. I will also give 
you a copy of this program at any other 
special memory location if you have a 
need for this.) Record from 6C00 to 
6F9C. 

To execute the renumberer, load your 
Applesoft program, Hit reset and load 
the binary executable renumber pro- 



gram. Type: 6C00G. You will now see a 
flashing cursor. Enter the line number in 
the Applesoft program where the 
renumbering will begin. Then enter the 
next statement number you do not want 
renumbered. Finally, enter the new line 
number to start with, followed by the in- 
crement between line numbers. 

When the program is finished, (nor- 
mally under 30 seconds,) type: 0G, and 
your program is renumbered. You can 
now record it, or continue developing it 
as normal. 

An example of executing the program 
is as follows: 

52 (Start at line number 52...) 
512 (And stopping before line 

512...) 
60 (Renumber, start with line 60) 
10 (And go in increments of 10) 
0G (And carry on!) 
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oCOO- 


A9 dU LDA 


#SBO 


oCbC- 


AV 00 


LDA 


#*00 


oCFh- 


C9 


04 




CMP 


#SC4 


oc 02 - 


du h3 oh STA 


*ohh3 


oCbh- 


oD fd of 


biA 


SOfrd 


oDOI- 


hO 


ID 




bhQ 


^oD20 


oOOb- 


a9 00 LDA 


#500 


oCol - 


dD f-y of 


bfA 


^orf 9 


oD03- 


Cd 






IimY 




OCU7- 


db r'C bl"A 


^fL 


OCo4- 


AD ff of 


LDA 


*ofhf 


oD04- 


CA 






LhX 




oC09- 


A9 2 LiJA 


tfS02 


oCo/- 


oD f / of 


biA 


Soff / 


oUOb- 


DO 


hh 




DNh 


SO^FD 


oCOB- 


db HU bTA 


*Hu 


oCoA- 


Ab o/ 


LDA 


»o/ 


oDO/- 


9d 






1YA 




oCOD- 


20 Lb oD JSk 


SoDhb 


oCoC- 


db fC 


b'l'A 


ShC 


oDOd- 


A0 


01 




LDY 


M5U1 


OC10- 


AD 1-4 oh LDA 


*Ohh 4 


oCoh- 


Ab od 


LDA 


^»ob 


oDOA- 


Id 






CLC 




oCI3- 


dD t/ of 31A 


Soft/ 


oC/0- 


ob fi) 


bl'A 


ShD 


oDOB- 


ob 


FC 




aDC 


SfC 


oC lo- 


AD hb of LDA 


Soffb 


oC72- 


AO 00 


LDY 


ffSOO 


oDOD- 


db 


hC 




biA 


*hL 


OC1V- 


dD td .of Si" A 


^oh ho 


oC/4- 


bi fc 


LDa 


(she ) t i 


oDOh- 


^0 


02 




dCC 


SODI 3 


oClC- 


20 hb oD Jbrt 


SoDtd 


oC fo- 


4d 


HHA 




ODI 1- 


ho 


fu 




IimO 


SPD 


oCIF- 


AU f 4 of LDA 


*off 4 


od l- 


Cd 


IwY 




OD13- 


bl 


FC 




LDA 


(SfC), Y 


oC 22- 


bU £5 of SIa 


^ofhb 


oC /d- 


bl fC 


LDA 


(she), i 


oDlb- 


DO 


DO 




but 


SoCh/ 


oC2b- 


AD r-D of LUA 


50 ff b 


oC /A- 


4d 


h'riA 




oDI /- 


A5 


B0 




LDA 


*00 


oC2d- 


dD to of biA 


=?of to 


oC/B- 


fO oO 


QtU 


SoC Ui) 


oDIV- 


db 


OA 




STA 


SoA 


oC2B- 


20 Hb oD JSh 


soDtd 


oC/D- 


Cd 


IwY 




oDlB- 


Ab 


AF 




LDA 


^Af 


oC2h- 


AD f4 of LDA 


*off 4 


oC /t- 


A2 00 


LDX 


#500 


oDID- 


db 


o9 




biA 


So9 


oCJI- 


oD ft of SI A 


*Off b 


oCBO- 


bi tc 


lDa 


i>tC) , t 


oDIf- 


oO 






Hi 3 




OCJ4- 


AD fb of LDA 


Sofrb 


oCd2- 


CO El of 


CmP 


Soft / 


OD20- 


Cd 






1WY 




oC3/- 


dD fh of bl'A 


^Offf 


oCtib- 


Cd 


INT 




oD2l- 


0A 






DtX 




oC3A- 


20 tB oD JSrt 


SOUhb 


oCoo- 


bl fC 


LDA 


(Sfc), i 


oD22- 


f0 


t3 




titiij 


SoDO / 


oC3U- 


AD h"4 of LDA 


SO ff 4 


oCdd- 


hU Hd of 


ddC 


Softti 


0D24- 


20 


F0 


oD 


JSW 


*oDfO 


oC4U- 


dD hC of SlA 


5 0hhC 


oCdb- 


90 4/ 


dCC 


50CU4 


oD2/- 


AD 


hh 


of 


LDA 


sofht 


o043- 


AD fb Of LDA 


Soffb 


oCdD- 


dd 


UtY 




6D2A- 


fO 


C^ 




bhO 


SoCfb 


OC4o- 


60 tU or bl'A 


5ohf D 


oCdh- 


bl fC 


LUA 


(ShC), i 


oD2C- 


9d 






1YA 




OC49- 


AV 30 LDA 


#5 30 


oC90- 


CO hb of 


CivtH 


SOftb 


OU2D- 


4d 






PhA 




oC4B- 


dD hJ of bl'A 


softb 


OCV3- 


Cd 


IN Y 




oU2E- 


AD 


fh 


6h 


LDa 


Soff t 


oC4t- 


AV /0 LDA 


tfS 70 


OCV4- 


bl fC 


LDA 


(SfCJ , i 


603 1- 


dD 


Fo 


of 


ST A 


^off 


oCbO- 


db Fh biA 


Sf'f 


oCVo- 


hD ho Of 


bbC 


*of ho 


oU34- 


AD 


Ff 


of 


LDA 


sofff 


oCb2- 


AO 00 LDA 


#5uo 


OCV9- 


BO 4 2 


BCb 


SoC Dd 


OD3/- 


dD 


f / 


oh 


bTA 


50fh / 


oCb4- 


db ft: bl'A 


Sft 


oC9B- 


B8 


UhY 




oD3A- 


A9 


00 




LDA 


#500 


oCbo- 


AD ft of LDA 


*ohh h 


ocvc- 


bl fC 


LDA 


( S f C ) , Y 


oD3C- 


BD 


fZ 


Of 


bTA 


so fh 2 


oCb9- 


oD fo of SIa 


soff 


oCvh- 


dl fh 


bl'A 


(Sft ( X ) 


6U3h- 


dD 


h3 


of 


STA 


^of f J 








oCAO- 


Cd 


lux 




oD42- 


a9 


/O 




LDA 


#5 /0 








oCAl - 


ho fh 


li^JC 


Sft 


OD44- 


db 


ff 




STA 


*fh 








OCA3- 


bl KC 


LDA 


C^fC), { 


oD4o- 


A9 


00 




LDA 


#S00 








oCAb- 


dl f c 


biA 


(Sfh f X) 


" 0D4b- 


db 


Fh 




STA 


5hh 








oCA/- 


ho he 


INC 


Sfh 


oD4A- 


AO 


00 




LDY 


#500 








oCA9- 


DO 0^ 


Oiiti 


SoCAD 


OD4C- 


bl 


hh 




LDA 


(5ft:), if 








oCaB- 


ho fh 


INC 


sf'f 


oD4h- 


Cd 






IrtY 


















oCAD- 


hh fd of 


iwc 


$of r o 


0D4f- 


CD 


h"4 


of 


CMP 


5ohr4 


EPRO PROGRAMMER 


oCbO- 


DO Oj 


dNh 


SoCdb 


0Db2- 


DO 


0/ 




bNh 


SoLbb 




Model EP-2A-79 




OCB2- 
oCbb- 


th fv of 

dd 


1HC 
DhV 


^off y 


oDb4- 
oDbo- 


Bl 
CD 


hh 
hb 


oh 


LDA 
CMP 


(Shh), Y 

>Oft"D 


WM$$M^ j 


llilillliil 


#fr&'i '' \ 


oCbo- 


AD f o oh 


LDA 


*ofho 


0Ub9- 


fO 


47 




BhO 


50DA2 




^^^^^^1 


liM^^P'' 


oCdV- 


VI hC 


biA 


(ShC) t i 


oDbB- 


dd 






Dtt 




W$wSk 




oCdb- 


Cd 


1NY 




oDbC- 


ho 


hh 




1WC 


sFt 




■IPKSsste*^ 




oCbC- 


AD h / Of 


LDA 


sofh/ 


0D5h- 


to 


Fh 




INC 


*hh 


JP*$? 


lSS^^Mi::;.i 




oCBf- 


VI h"C 


biA 


(5hC),Y 


oUoO- 


DO 


02 




bMh 


SoD04 






oCCl- 


Id 


CLC 




oDo2- 


to 


ff 




IwC 


*hh 




:; ■ J|i^ii;|| : :;l; ; -:| £ ; $| Ikf^^k,:. '■ 


W^^kM-. 


6CC2- 


AU fo oh 


LDA 


5ofro 


oDo4- 


Id 






CLC 




IllilS &p|fp If ^Bllk 




oCCb- 


oD f C of 


ADC 


SOffC 


oDob- 


AD 


fo 


oh 


LDA 


Soff o 


'^MHSjk-iA^- 


WSm^^¥^^m 


}i}%Jm 


oCOd- 


dD ho of 


bl'A 


Soff 


oDOd- 


oD 


FC 


of 


ADC 


iOhfC 


SaJamBfe;:^:^ 


'^•' ". . jiBPM • #23 




oCCb- 


AD h'7 of 


lDa 


^Of f / 


oDoB- 


dD 


FO 


oh 


STA 


^Of f 




H 




oCCt- 


OU hD of 


ADC 


SofhD 


oDoh- 


AD 


h/ 


Of 


LDA 


Soff 7 




wKS 


oCDI- 


dD fJ of 


b'lA 


*ohh ; 


OD/I- 


oD 


f'D 


of 


ADC 


$of rLi 




OCD4- 


od 


HLA 




oD/4- 


dD 


f/ 


of 


STA 


Sohr / 








oCDb- 


db h'D 


STA 


>fu 


oU//- 


hh 


fz 


oF 


InC 


SoFr2 






Hp 


oCD/- 


od 


hLA 




oD/A- 


DO 


03 




bNh 


*oD/h 




S?J^S^^iii^;^Mw^ 


mm;.- 


oCDd- 


db fc 


biA 


ShC 


oD/C- 


th 


fj 


of 


Ll\C 


SOFF 3 




lll^ 


Ilgfe;.? 


oCDA- 
oCDB- 


Id 

90 Vb 


CLC 
oCC 


*oc7 2 


oD/f- 
oDB2- 


AD 
CD 


f2. 
fd 


oh 
of 


LDA 
CMP 


>off 2 


llliilllf 


: : ; ' ■ .;. : - ; : * - : • -^^X \ ?^££%$%$i 


li'?!':'!'^:- '• 


Sof rd 








oCDD- 


od 


^LA 




oDdb- 


DO 


Cb 




bNh 


S0D4C 


SOFTW-* 


RE AVAILABLE FOR F-8, 8080, 6800, 


oCDE- 


od 


HLa 




oDd/- 


AD 


f3 


Of 


LDA 


iOhr-J 


8085, Z-i 


JO, 6502, KIM-1, 1802, 2650. 




oCDf- 


Ab o / 


LDA 
biA 


*o! 
ShC 


oDdA- 


CD 


f9 


of 


CMP 


Sofrv 


EPROM 
which p 


type is selected by a personality 
ugs into the front of the prog 


module 
ammer. 


oChl- 


db f C 


oDdD- 


DO 


60 




but 


^oD4C 


Power re 


quirements are 115 VAC, 50/60 HZ at 15 


oChi- 


Ab od 


LDA 


*od 


oUdF- 


od 






PLA 




watts. It 


is supplied with a 36 inch ribbon cable 


oCtb- 


db tU 


bTA 


sfu 


OD90- 


Ad 






IaY 




for conn 


ecting to microcomputer. Reqi 


j ires 1 n/ ; 


OCh/- 


A0 00 


LDY 


#sou 


OD9I- 


Bl 


t-C 




LjA 


(SfC), i 


I/O po 


ts. Priced at $155 with one 


set of 


oCh9- 


bi he 


LDa 


( s f e ) , X 


OD93- 


C9 


30 




CmP 


#> JO 


software 


. Personality modules are shown below. 


oCHB- 


3d 


bhC 




oDVb- 


V0 


4A 




dec 


SODt 1 


Part No. 


Programs 


Price 


oCEC- 


hb f'C 


bbC 


she 


OD9/- 


C9 


3a 




CMP 


ff^ J»A 


PM-0 


TMS 2708 


$15.00 


oCht- 


AA 


1 AX 




OD99- 


bO 


40 




DCS 


SODt 1 


PM-1 


2704, 2708 


15.00 


OCtif- 


CA 


L)dA 




6D9b- 


Cd 






IwY 




PM-2 


2732 


30.00 


oCfO- 


CA 


UhA 




oDyC- 


CA 






DhX 




PM-3 


TMS 2716 


15.00 


oCfl- 


CA 


UtiA 




ODVD- 


DO 


tz 




but 


SoDVI 


PM-4 
PM-5 


TMS 2532 

TMS 2516,2716,2758 


30.00 
15.00 


OCF2- 


CA 


DhX 




oD9h- 


4C 


0/ 


oD 


JmP 


SObU / 








6Cf3- 


A0 04 


LDY 


#504 


ODA2- 


20 


32. 


oh 


JbH 


Sof32 


o F 


itimal Technology, Inc. 


oCF5- 
oCF7- 


Bl he 
C9 bO 


LDA 
CmP 


(ShC), Y 

#sb0 


oDAb- 
oDAo- 


od 
Ad 






PLA 
LAY 




BlueV\ 


/ood 127, Earlysville, VA 22936 


OCFV- 


hO 2b 


bhQ 


^OD20 


o0A7- 


A9 


00 




Lla 


r^SUO 




Phone (804) 973-5482 




oCfB- 


CV AB 


CrtP 


#SAd 


ODA9- 


dD 


F 1 


of 


bTA 


?Orf 1 








oCFU- 


hO 21 


atQ 


*o020 


oDAC- 


AD 


fO 


of 


LUA 


SofrO 



oDAF- 


3d 






bbC 




obob- 


cb 


FU 




ObC 


>fu 


oFOB- 


ab 


t6 




STA 


5Fd 


oDBO- 


to 


Eb 


oh 


6BL 


SoPtt 


o£ob- 


bU 


rb 


OF 


Di"A 


SoFFb 


oFOD- 


aO 


01 




LDY 


#501 


oDbd- 


8D 


FO 


OF 


oiA 


SOFFO 


otob- 


dC 


tf 


OF 


di"Y 


SoFtF 


oFOF- 


Dl 


FA 




LDA 


CSFA), Y 


oDBo- 


10 


ob 




DpL 


SoLdD 


o£ob- 


AD 


Fa 


oF 


LOA 


SoFPa 


oF 1 1 - 


FO 


IC 




DtQ 


^or2F 


oDBd- 


AV 


FF 




LDa 


#SPP 


o£o£- 


jd 






bEC 




oF 1 3- 


4b 






PHA 




ODBA- 


oD 


Fl 


oF 


S'lA 


SoPFl 


o£oh- 


ED 


£F 


oF 


SdC 


SoFEF 


oF 1 4- 


od 






DEi 




oDdD- 


FO 


Oo 




bbQ 


SOUCb 


oE/2- 


oD 


FA 


oF 


blA 


^>oFFA 


oFlb- 


o) 


FA 




LDA 


UFA), t 


oDdP- 


20 


03 


oF 


JbH 


*oP03 


o£ lo- 


vO 


03 




bCC 


>o£7A 


oFl /- 


4o 






PriA 




ODC2- 


^0 


Dl 


o£ 


Jbrt 


Sobbl 


ot/ I- 


b£ 


Fb 


oF 


ii^C 


SoFFb 


OF 1 d- 


Id 






CLC 




oDCb- 


bA 






i'XA 




ob/A- 


Id 






CLC 




oFiy- 


oD 


rO 


OF 


ADC 


?oPF0 


oDCo- 


dD 


£F 


oF 


bi'A 


SoFtP 


oE/b- 


Ab 


AF 




LDA 


SAP 


OFIC- 


vl 


FA 




o'iA 


(^Fa), i 


oDCv- 


A^ 


00 




LDA 


#*U0 


jo£/D- 


oU 


FO 


oF 


ADC 


SoPfO 


oF Ib- 


Cd 






IhY 




OUCB- 


BjJ 


£y 


Or 


LDA 


soFty, x 


otdO- 


Ob 


AF 




STA 


SAP 


oFIF- 


bl 


FA 




LLA 


(SFA), Y 


oDCb- 


FO 


Oo 




db0 


^?OUUO 


o£B2- 


bb 


fii 




DlA 


^Fo 


oF2l- 


oD 


F 1 


OF 


ADC 


$OF> 1 


oDDO- 


VI 


FC 




bTA 


Ui-C), Y 


6£b4- 


AD 


FO 


OF 


LDA 


^oFFO 


oF24- 


91 


FA 




biA 


(SFA), t 


0DD2- 


cd 






itii 




o£87- 


dO 


CI 




Dm I 


*0b4A 


oF2o- 


od 






PLA 




0DD3- 


cE 


£F 


oF 


DbC 


*oPbF 


Ohb9- 


AD 


30 




LDA 


SBO 


oF2/- 


ob 


Fa 




bTA 


*FA 


oDDo- 


£b 






iii A 




OhbB- 


oy 


00 




ADC 


^^00 


oF29- 


od 






PLA 




oDD7- 


£0 


Ob 




CPX 


#SOb 


o£dD- 


oo 


bO 




bTA 


SBO 


oF2A- 


ob 


fd 




STA 


*Fb 


6DUV- 


DO 


FO 




bNb 


^oUCo 


otdF- 


ob 


P"y 




blA 


^Fy 


0F2C- 


Id 






CLC 




oDDB- 


AU 


£F 


of 


LDA 


*OPbP 


6EV1- 


AD 


FO 


oF 


LUA 


SOFFO 


oF2D- 


yo 


£0 




DCC 


SoFOF 


6DDE- 


AA 






iAA 




o£94- 


30 


3b 




DM I 


>obCB 


OF^F- 


od 






PLA 




oDDF- 


Bl 


FC 




LDa 


(SFC), Y 


o£yo- 


AO 


00 




LDY 


^$00 


oF30- 


Ad 






iAY 




oDEl- 


CV 


2C 




CMP 


#S2C 


otyd- 


bl 


Fa 




LDA 


(spFA), Y 


OF31- 


oO 






kIS 




6DE3- 


00 


03 




BNt 


*oDEd 


o£9a- 


vl 


Fd 




bi'A 


(SFo), Y 


OF32- 


dA 






IXA 




oDEb- 


40 


20 


oD 


JmP 


SoD2u 


o£yc- 


3d 






StC 




oF38- 


4d 






PHA 




oDEd- 


4C 


F/ 


oC 


JmP 


SoCP7 


o£yD- 


Ab 


FA 




LDA 


*FA 


oF34- 


Ay 


30 




LDA 


#sbO 


oDEB- 


20 


oF 


f'O 


JSk 


SFDoF 


o£yi-- 


ty 


01 




ObC 


*$0I 


OF30- 


A2 


04 




LUX 


#S04 


oDEE- 


AO 


00 




LUt 


#500 


o£AI- 


ob 


FA 




blA 


^>FA 


oFdd- 


yo 


£y 


OF 


Si'A 


*ort9 , X 


oDPO- 


98 






TYA 




o£A3- 


DO 


02 




DCb 


S0bA7 


oFdb- 


CA 






DtX 




oDFI- 


4d 






PHA 




o£Ab- 


Co 


FB 




DEC 


>tb 


oF3C- 


10 


FA 




bPL 


^oF3a 


oDF2- 


A9 


00 




LDA 


#$00 


o£A7- 


3d 






bzC 




oF3b- 


AD 


FY 


OF 


LDA 


soFF / 


oDF4- 


60 


££ 


of 


STA 


^>oPtt 


o£Ad- 


AD 


Fd 




LUA 


SP'd 


oF4|- 


do 


Fb 




bi'A 


SFd 


6DF7- 


aO 


fd 


of 


STA 


SoFFb 


o£AA- 


by 


01 




bbC 


#^0i 


oF4d- 


aD 


Fo 


OF 


LDA 


sOFFo 


oDFA- 


bD 


F4 


of 


bi'A 


>oFi-4 


o£AC- 


ob 


fb 




bi'A 


SFo 


oF4o- 


ob 


FA 




bTA 


SFA 


oDFD- 


Bl 


FC 




LDA 


(SFC), Y 


o£A£- 


bO 


02 




DCb 


*o£B^ 


6F 4o- 


AO 


00 




LDY 


tfSOO 


oDFF- 


3d 






b£C 




o£d0- 


Co 


Fy 




UbC 


SF9 


oF4A- 


to 






liiA 




oEOO- 


£u 


£3 


of 


SBC 


SOFE3 


o£b^- 


3d 






bbC 




OF4B- 


by 


y2 


oF 


LDA 


SOFV^, Y 


oE03- 


90 


42 




dCC 


5.o£47 


o£B3- 


AD 


FA 


OF 


LDA 


So FF A 


oF4b- 


FO 


IF 




btO 


$OFOF 


oEOb- 


cy 


OA 




CMP 


#i?0A 


o£Bo- 


ty 


01 




SBC 


tf$OI 


oFbO- 


38 






b£C 




oEQ7- 


bO 


3£ 




BCS 


So£4/ 


o£bd- 


tiU 


rA 


oF 


STA 


SO FF A 


oFdI- 


Ab 


rA 




LDA 


*rA 


oE09- 


Et 


££ 


of 


laC 


^oFt£ 


otbb- 


DO 


08 




dCS 


^otyd 


oF"b3- 


FV 


92 


oF 


SBC 


SOFV^, Y 


oEOC- 


4b 






PHA 




o£BD- 


CE 


rd 


OF 


DEC 


SoFFb 


oFbo- 


4d 






HnA 




oEOD- 


2E 


F4 


of 


hUL 


*oPP4 


o£C0- 


DO 


Do 




BNE 


^o£ye> 


oFb/- 


Cd 






IWY 




oblO- 


2E 


Fb 


of 


HDL 


$6ft5 


ot'C2- 


Id 






CLC 




oFbb- 


Ab 


f3 




LDA 


SFB 


oEI3- 


AD 


Fb 


of 


LDA 


*oFFb 


o£C3- 


od 






PLA 




oFbA- 


F9 


y2 


or 


boC 


5or92, Y 


oh lo- 


4b 






PriA 




o£C4- 


oD 


FO 


OF 


aDc 


SoFFO 


oFDD- 


90 


08 




bCC 


SOFOA 


ot 17- 


AD 


F4 


of 


LDA 


^oFF4 


o£C/- 


AA 






TAX 




oF5F- 


Ob 


FB 




STA 


SFb 


oElA- 


4b 






PHA 




otCd- 


od 






PLA 




oFo) - 


od 






PLA 




oElB- 


zE 


F4 


of 


hUL 


$oFF4 


o£C9- 


Ad 






i'AY 




oho2- 


ob 


FA 




bfA 


SF'A 


oElE- 


2E 


Fb 


of 


HDL 


SoFPb 


otCA- 


oo 






KTS 




oFo4- 


od 






DtY 




o£2l- 


2E 


F4 


of 


HUL 


^oFF4 


ohCB- 


Ad 


FC 




LDA 


SFC 


oFob- 


Ft 


£9 


oF 


INC 


*oFby,x 


o£24- 


2E 


Fb 


of 


rtUL 


SoFFb 


o£CD- 


db 


Fo 




blA 


>rb 


oFod- 


DO 


bo 




bNh 


*OFbO 


oE27- 


ob 






PLA 




o£CF- 


AD 


fD 




LUA 


SFD 


oFoA- 


C<i 






IwY 




o£2d- 


oD 


F4 


OF 


ADC 


S0FF4 


o£Dl- 


db 


fy 




oi'A 


*P"y 


oFob- 


oo 






PLA 




o£2B- 


80 


F4 


oF 


SI'A 


i?Ohl-4 


o£D3- 


AD 


to 


oF 


LDA 


50FFO 


oFoC- 


to 






IhX 




o£2E- 


ob 






PLA 




o£Do- 


49 


ft 




tU« 


#>ft 


oFoD- 


DO 


DC 




DINlb 


SOF413 


oE2F- 


oU 


F5 


oF 


AUC 


SoFi-b 


o£D8- 


lo 






CLC 




oFoF- 


A2 


00 




LDX 


#$00 


oE32- 


bD 


Fb 


oF 


S|"A 


So ff 5 


oEDy- 


o9 


01 




ADC 


#501 


oF 7 1 - 


dD 


£9 


oF 


LDA 


*OFb9 t X 


OEBb- 


od 






PLA 




oEDB- 


Id 






CLC 




oF /4- 


C9 


30 




CMP 


#$30 


o£3o- 


oD 


F4 


oF 


ADC 


^oFP4 


oEDC- 


ob 


FC 




aDC 


SFC 


oF/o- 


DO 


OA 




BtMb 


SOF02 


0c39- 


dD 


F4 


of 


SiA 


SoPr4 


OEDE- 


db 


FA 




bi'A 


!?FA 


oF /d- 


A9 


00 




LDA 


#^>00 


oEdC- 


A9 


00 




LDA 


#500 


o££0- 


Ab 


to 




LDA 


SFD 


oP7A- 


yD 


£y 


oF 


b'l'A 


soF£y, X 


6E3E- 


oD 


Fb 


of 


ADC 


^•oFFb 


o££2- 


o9 


00 




aDC 


ii^SOO 


OF/D- 


to 






liU 




o£4l- 


oD 


fb 


of 


STA 


SoFFb 


o£E4- 


dD 


FB 




bTA 


SFB 


oF /£- 


to 


04 




CPX 


#S04 


o£44- 


Cd 






UU 




oEEo- 


Bl 


FA 




LDA 


(SPA), Y 


oFdO- 


DO 


£F 




Brtt 


soF/l 


o£4b- 


DO 


bo 




bNh 


SOUFD 


o££8- 


vl 


Fd 




STA 


CSFb), Y 


oF82- 


OA 






TXA 




o£47- 


08 






PLA 




o££A- 


Cd 






IrtY 




oFd3- 


dD 


FO 


oF 


STA 


^oFrO 


o£4d- 


Ad 






IAY 




oEEd- 


DO 


04 




bi^E 


SobFI 


oF8o- 


A9 


Ob 




LDA 


#S0b 


o£49- 


oO 






kl'S 




o£ED- 


bo 


FB 




h4C 


SFb 


oFdd- 


3d 






bbC 




o£4A- 


Ab 


BO 




LUA 


SBO 


oEtP- 


bo 


F9 




INC 


spy 


oFd9- 


bD 


FO 


OF 


5ti^ 


SoFFO 


o£4C- 


£9 


00 




bdC 


#soo 


o£FI- 


38 






b£C 




oFdC- 


dD 


FO 


oF 


blA 


SOFFO 


o£4£- 


4C 


60 


o£ 


JmP 


SohbD 


o£F2- 


AD 


FA 


oF 


LDA 


So FF A 


oFdF- 


ob 






PLA 




oEDl- 


yd 






IYA 




6EFb- 


b9 


01 




SBC 


#501 


oF90- 


AA 






"IAX 




o£b2- 


4d 






PHA 




o£F7- 


oD 


t A 


oF 


STA 


SoFFA 


oF9l- 


oO 






Hi 5 




o£b3- 


oA 






IAA 




oEPA- 


BO 


£A 




BCS 


SoEEo 


oF"y2- 


10 


2/ 




bPL 


*oFdD 


obb4- 


4d 






PHA 
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Performing Math Functions 
in Machine Language 



If you are afraid to try doing mathematical functions in 
assembly language, then this article may help you get 
started. 



Alfred J. Bruey 

201 S. Grinnell Street 

Jackson, Ml 49203 



Since addition, subtraction and shif- 
ting are the only arithmetic functions 
available in machine language for most 
small computers, it becomes necessary 
to find methods to perform other 
mathematical operations using addi- 
tion, subtraction, and shifts in combina- 
tion with other commands available on 
the programmer's microprocessor. 

Multiplication is an example of an 
operation that is commonly performed 
in this way. Let's look at a particular ex- 
ample. Suppose we want to multiply 187 
by 345. It is obvious that we can clear a 
register and add 187 a total of 345 times 
to arrive at the answer, but we soon 
discover that it is more efficient to per- 
form the same function by combining 
additions with shifts. 

Using the shift command, we would 
add 3 187s, then shift left, then add 4 
187s, the shift left, then add 5 187s to ar- 
rive at the final product. Thus, we have 
replaced 345 additions with 12 additions 
and 2 shifts. In the same way, repeated 
subtractions may be combined with 
shifts to implement a division algorithm. 

Division and multiplication algorithms 
are often described in the programming 
manuals that come with a computer. A 
programmer soon needs other mathe- 
matical functions and must find a way to 
perform them with a limited instruction 
set and limited computer memory. If the 



functions become too complicated, one 
must add memory or go to a higher level 
language, such as BASIC. 

The purpose of this article is to 
demonstrate the power of the lowly addi- 
tion and subtraction commands by 
developing an algorithm for extracting 
the square root of a number. The al- 
gorithm is described and a flow chart is 
presented along with a 6502 lisiting for 
the KIM-1. 

The square root algorithm to be 
presented here is based on the equation: 
n 

J£ ( 2k " 1 ) = n 2 ; n an integer greater than 
k = 1 

which says, in English, that the sum of 
the first n odd integers is equal to the 
square of n. For example: 

1+3 + 5 + 7 + 9 = 25 = 5 2 

That is, the sum of the first 5 odd in- 
tegers is equal to 5^, or 25. This equation 
is easily proven true for all positive in- 
tegers by mathematical induction. 

The method implemented here is to 
subtract first 1 , then 3, then 5, and so on, 
from the number whose square root is 
desired. The number of subtractions, 
less 1, that it takes to reduce the original 
number to a nonzero negative number is 
the square root. For example, if X = 25: 

25-1 =24; 24-3 = 21; 21-5 = 13 
16-7 = 9; 9-9 = 0; 0-11 =11 



Since it took 6 subtractions to reduce 
25 to a number less than 0, the answer is 
6-1=5. Notice that this method 
gives only the integer part of the answer, 
so if X had been any value from 25 to 35, 
you would have arrived at the same 
answer. Remember— when you take the 
square root of a number, your answer 
has only about half as many significant 
digits as the number. 

The original value (NUM) is placed in 
the accumulator. The answer will be in 
the Y register and also displayed on the 
KIM's seven segment LEDs (POINTH). 
Notice that the algorithm as described 
below will not handle very large 
numbers. To use this for practical pro- 
blems, it will have to be extended to 
multiple precision. 

The coding to implement the routine is 
given below. While the addresses are 
given for the KIM-1, a few address 
changes should make it possible to im- 
plement this routine on any other 6502 
based system. The number you want the 
square root of goes in location 0001, 
then set the address to 0000 and GO. 
The answer will be displayed in POINTH, 
the left two LEDs of the KIM display. The 
code given is probably not optimum — I 
am a relative newcomer to machine 
language coding. If you come with an im- 
proved version of this routine, I'd ap- 
preciate receiving a copy of it. The exam- 
ple shown is set to take the square root 
of $10. 
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KIM/SYM/AIM-65-32K EXPANDABLE RAM 

DYNAMIC RAM WITH ON BOARD TRANSPARANT REFRESH 
THAT IS COMPATIBLE WITH KIM/ SYM/AIM-65 
AND OTHER 6502 BASED MICROCOMPUTERS. 




* PLUG COMPATIBLE WITH KIM /SYM/AIM-65. 
MAY BE CONNECTEDTO PET USING ADAPTOR 
CABLE. SS44-E BUS EDGE CONNECTOfl. 

* USES +5V ONLY (SUPPLIED FROM HOST 
COMPUTER BUS). 4 WATTS MAXIMUM. 

* BOARD ADDRESSABLE IN 4K BYTE BLOCKS 
WHICH CAN BE INDEPENDENTLY PLACED ON 
4K BYTE BOUNDARIES ANYWHERE IN A 64K 
BYTE ADDRESS SPACE. 

* BUS BUFFERED WITH 1 LS TTL LOAD, 

* 2O0NSEC 4116 RAMS. 

* FULL DOCUMENTATION 

* ASSEMBLED AND TESTED BOARDS ARE 
GUARANTEED FOR ONE YEAR, AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF 
BOARD IS RETURNED UNDAMAGED WITHIN 
14 DAYS. 

ASSEMBLED/ 

TESTED KIT 

WITH 32K RAM 1495.00 1459.00 

WITH t6K R AM 1425.00 M89.00 

WITHOUT RAM CHIPS 1355.00 $319.00 

HARD TO GET PARTS ONLY (NO RAM CHIPS) SI 80.00 

BARE BOARD AND MANUAL $85.00 



m hibmc 



mm 



CONNECTS THE ABOVE 32K EXPANDABLE DAM TO A 4K OR 8K PET. 
CONTAINS EXPANSION INTERFACE CABLE BOARD STANDOFFS. 
POWER SUPPLY MODIFICATION KIT ANO COMPLETE INSTRUCTIONS. 



Beta computer devices 

P.O. BOX 34€S 
ORANGE, CALIFORNIA 92665 



ALL ASSEMBLED BOARDS AND MEM- 
ORY CHIPS CARRY A FULL ONE YEAR 
REPLACEMENT WARANTY. 



16K XI DYNAMIC RAM 

THE MK4116-3 IS A 16,384 BIT HIGH SPEED 
NMOS, DYNAMIC RAM. THEY ARE EQUIVALENT 
TO THE MOSTEK, TEXAS INSTRUMENTS, OR 
MOTOROLA 4116-3. 

* 200 NSEC ACCESS TIME. 375 NSEC CYCLE 
TIME. 

* 16 PIN TTL COMPATIBLE. 

* BURNED IN AND FULLY TESTED. 

* PARTS REPLACEMENT GUARANTEED FOR 
ONE YEAR. 

tt.50 EACH III QUANTITIES OF 8 



MOTOROLA MEMORY ADDRESS MULTIPLEXER- 
MC3242A 

THE MC 3242A IS AN ADDRESS MULTIPLEXER 
AND REFRESH COUNTER FOR 16 PIN, 16K 
DYNAMIC RAMS THAT REQUIRE A 128 CYCLE 
REFRESH. 

* CONTAINS MEMORY REFRESH COUNTER. 

* MULTIPLEXES SYSTEM 14 BIT ADDRESS TO 
THE 7 ADDRESS PINS OF THE RAMS. 

* COMPATIBLE WITH 3480 MEMORY 
CONTROLLER 

* PART IS GUARANTEED. 

SI 2.50 EACH 



MOTOROLA OYNAMIC MEMORY CONTROLLER- 



MEMORY CONTROLLER DESIGNEDTOSIMPLIFY 
CONTROL OF 16 PIN 4K OR 16K DYNAMIC RAMS. 

* GENERATES RAS/CAS ANO REFRESH TIMING 
SIGNALS FOR 16K TO 64K BYTE MEMORIES. 

* GENERATES MEMORY READ/WRITE TIMING. 

* DIRECT INTERFACE WITH MOTOROLA OR 
INTEL 3242A ADDRESS MUX AND REFRESH 
COUNTER. 

* PART GUARANTEED. 

$1 3.95 EACH 



6502. 64K BYTE HAM AND CONTROLLER SET 

MAKE 64K BYTE MEMORY FOR YOUR 6800 OR 
6502. THIS CHIP SET INCLUDES: 

• 32M5K4116-3 16KX1, 200 NSEC RAMS. 

* 1 MC3480 MEMORY CONTROLLER. 

• 1MC3242A MEMORY ADDRESS 
MULTIPLEXER AND COUNTER. 

* DATA AND APPLICATION SHEETS. PARTS 
TESTED AND GUARANTEED. 

1325.00 PER SET 



EPROM 
2716-450NSEC S49.00 




dppkz* 
computer 

Apple II Reference Manual $10.00 

Apple soft Manual 10.00 

Programmer's Guide (Computer Station) 5.95 

Apple n Monitor Peeled 9.95 

Software Directory for Apple 

• Business, Finance & utility 4.95 

• Games, Demo, utility 4.95 

Best of Contact 78 2.50 

programming In PASCAL (Grogono) 9.90 



High Resolution Light Pen 199.00 



Micromodem id.c Hayes) . 
12" B/w Leetoe:< Monitor 
Cable from Monitor to Apple li 
13" Color TV Compatible with 
Apple il 
Sup-R-Modulatur IRF) 

SOFTWARE FOC APPL£ II 

PASCAL from pi ogramma 
FORTH 



379.00 

149 00 

9.95 



INTCRFACC CAROS 
Prototyping/ Ho bby Card 
Paratlet printer interface card 
Communications card & DB2S 

Connector Cable 
High-speed serial interface Card 
Language System with Pascal 

(48X RAM t Disk ll Required) 
Applesoft )l Firmware card 
16 input Analog Card 



49500 
200 00 
295 00 



ACCESSORIES 

DISK ll— Drive Only 

Disk ll— Drive a controller (32K Mln. 

ram Recommended) 
vinyl Carrying Case 
Tape Recorder 
Programmers Aid No. 1 Firmware (For 

use with integer basic) 
clock /calendar card 
Auto—Start ROM Package (For 

Apple ll Only) 
Ofglkimer Pad by Taios 

(Xltform) . 499 00 



49.95 

49.95 

N/C 

3495 

WHATSIT— Excellent conversational data 
base manager 32ft 100.00 4flk 125 00 

SARCON-Champ of 2nd west Coast 
Computer Fall e 19.95 

APPLE PIE— Excellent text editor 24.95 

FORTE-Mustc editor In hires 1 9. 9 5 

FASTCAMMON- Excellent backgammon 
game with graphics Tape 20.00 Disk 25.00 
apple 21 — Exce Kent blackjack game 9.95 
BRIDGE CHALLEMCER-Computer bridge 14 95 
FINANCIAL MANAGEMENT SYSTEM 

• Accounts Payable • Ledger Processing 

• Accounts Receivable • Payroll 

• Inventory Control • $800 Complete 

• S200 Each Package • $10 for Manual 

PRINTER SPECIALS FOR APPLE ANO PET 

THENDCOM 100 with interface for 

Apple Or PET 450.00 



LITE PEN used wltn TV or monitor 

screen 34 95 

ALF Music Synthesizer Boards 265 00 

supertalker 279 00 
Anadex DP-8000 wltn tracter 

8 paper width and Interface 

to Apple 1050 00 
Centronics 779-2 for Apple ll 

with parallel interface 1 245 oo 

software (Send For complete soFtware 

catalog $1.00) 

Dow Jones Portfolio Evaluatorv 

Stock Ouote Reporter Disk 50.00 

Microchess 2.0 chess Disk 25 oo 

Disk Utility Pack with DOS 3 2 25 00 
The controller (General Business 

systeml 625 00 

Apple Post (Mailing List Systemi 49 95 

Bowling Program Diskette- 1 5 00 
The Cashier (Retail Store Management 250 00 

Checkbook Cassette 20 oo 
Applesoft ll Language & Demo 

cassette 20 00 

ram Test Tape with Manual 7 50 

Finance 1-2 cassette Package 25 00 
oatamover/Telepong cassette 

(Com. Card & Modem Reqd I 7 50 

Microchess 2.0 Chess Tape 20 oo 

Bowling Program Tape 1 5 00 
Pascal with Language System 

(48k ram & Disk ii Required > 495 00 



495 00 

595.00 
30 00 
40.00 



6S.00 



New for Apple Computer Owners 
at Low ComputerWorld Prices 



8" Disk Drives with housing $1295.00 for single drive $1895.00 for dual drive 

rinppkf computer 

A PROFESSIONAL 

BUSINESS SYSTEM 

CMB 2022 

r commodore $995 

ITM 



& 




CBM 



2001-8 $795 

2001 -16N . .$995 
2001-32N . . .51295 
2001-32B . . $1295 
External 
cassette $95 

PET to IEEE 

Cable $39.95 



CBM 2023 

Printer $849 

IEEE to IEEE 

Cable $49.95 



Join Now 





Commodore PET service Kit $30.00 

Beeper— Tel Is when tape is Loaded 24.95 

Petunia— Play music with PET 29.95 

video Buffer— Attach another display 29.95 

Combo— Petunia and video Buffer 49.95 

SOFTWARE FOR PET 



Mirrors and Lenses 19.95 

Thestates 14.95 

Real Estate 1 &2 59.95 

Momentum and Energy .19.95 

Projectile Motion 19.95 

Mortgage 14.95 

dow Jones 7.95 

Petunia Player Sftwr . 14.95 



Checkers and Baccarat 7.95 

Chess 19.95 

Series and Parallel 

Circuit Analysis 19.95 

Home Accounting 9.95 

BASIC Math 29.95 

Came Playing with basic 
vol. i, ii, hi 9.95 each 



Become a member of ComputerWorld's RAYGAMCO Computer Discount Club. 

By being a RAYGAMCO Member you receive substantial discounts on every item you purchase, 
including all hardware, software, accessories, even books and paper! You will also receive a 
monthly newsletter with all the latest available for your particular computer system, and much, 
much more — exclusive to RAYGAMCO Members only! 
Here's how to join. 

Nothing to buy. Simply complete the self-addressed postcard in this magazine with name, 
address, and your computer system. You'll receive your personalized RAYGAMCO Computer 
Discount Club Membership Card in the mail with information on how to use your card when 
ordering for big savings! 

Charter RAYGAMCO Members' Special. Join now and receive 20% OFF of any purchase* 

*20% offer expires December 24, 1979. Offer is valid for RAYGAMCO Members only. 
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A RAYGAM COMPANY 



6791 Westminster Ave., Westminster, CA 92683 (714) 891-2587 



WANTED: ATARI* 

• • • FIND IT AT COMPUTERWORLD. 



ATARI® 800™ 

PERSONAL COMPUTER SYSTEM 

PRICE INCLUDES: 

Computer Console 
BASIC Language Cartridge 
Education System Master Cartridge 
BASIC Language Programming 

Manual (Wiley) 

800 operator's Manual with Note Book 
atari 410 Program Recorder 
Guide to BASIC Programming Cassette 
8K ram Module-Power Supply* 

TV Switch Box 



ATARI® 400™ 

PERSONAL COMPUTER 
SYSTEM 

PRICE INCLUDES: 

Computer Console 
BASIC Language Cartridge 
BASIC Language Programming 

Manual (Wiley) 
400 operator's Manual with 

Note Book 
Power Supply 
TV Switch Box 




$99999 



$ 549 



99 



LsDG3GDQCD«eB«B 
3®C3Gii)OBO®l 




ATARI * 810™ 
DISC DRIVE* 

DISKETTES 

CX8100 BLANK DISKETTES* 
CX8101 DISK FILE MANAGER* 

$5.00/ea. 



PERIPHERALS AND ACCESSORIES 

ATARI® 410™ 
$749.99 PRINTER* $599.99 PROGRAM RECORDER $89.99 



ATARI* 820™ 
PRINTER* 

ACCESSORY CONTROLLERS 

CX2C-01 DRIVING CONTROLLER PAIR 
CX30-04 PADDLE CONTROLLER PAIR 
CX40-04 JOYSTICK CONTROLLER PAIR 
$19.95/ea. 



ADD-ON MEMORY (800 ONLY) 



CXS52 8K RAM MEMORY MODULE 
CX853 16K RAM MEMORY MODULE 



§124.99 
$249.99 



ROM CARTRIDGES 

CXL4001 EDUCATION SYSTEM MASTER 
CARTRIDGE $34.99 

KEY: (j) = uses joystick controller 
(p) - uses paddle controller 
(d) = uses driving controller 



SOFTWARE 

CAMES $49.99/ea. 



CXL4004 BASKETBALL . 
CXL4005 LIFE 

CXL4006 SUPER BREAKOUTTM 
CX4008 SUPER BUGTM'V 



-V 

(j) 
-IP» 
id) 



EDUCATION SYSTEM CASSETTE PROGRAMS 



$39.99/ea. 



CX6001 U.S. HISTORY 
CX60O2 U.S. GOVERNMENT 
CX6003 SUPERVISORY SKILLS 
CX6004 WORLD HISTORY (WESTERN) 
CX6005 BASIC SOCIOLOGY 
CX6006 COUNSELING PROCEDURES 
CX6007 PRINCIPLES OF ACCOUNTING 
CX60O8 PHYSICS 



CX6009 GREAT CLASSICS (ENGLISH) 
CX6010 BUSINESS COMMUNICATIONS 
CX6011 BASIC PSYCHOLOGY 
CX6012 EFFECTIVE WRITING 
CX6013 AUTO MECHANICS 
CX6014 PRINCIPLES OF ECONOMICS 
CX6015 SPELLING 
CX6016 BASIC ELECTRICITY 
CX601 7 BASIC ALGEBRA 



APPLICATION $69.99 

CXL4002 ATARI BASIC 

CXL4003 ASSEMBLER DEBUG" * 

CXL4007 MUSIC COMPOSER 

CXL4009 COMPUTER CHESS** (J) 



BASIC CAME AND 
PROCRAM CASSETTES 

CX4101 GUIDE TO BASIC PROGRAMMING* 
CX4102 BASIC GAME PROGRAMS* 

$29.95/ea. 
•October Delivery * "November Delivery 

—Prices subject to change .— 



We Promise to Deliver! 



• We GUARANTEE ship dates on prepaid Computer System orders.* 

• If for reasons beyond our control we miss a ship date, WE WILL REFUND THE SHIPPING 
AND HANDLING CHARGES TO YOU — PLUS GIVE YOU A 10% DISCOUNT ON YOUR 
NEXT PURCHASE OF ANY ATARI SOFTWARE! 

• For prepaid Computer System orders, you'll receive an Accessory Controller of your choice. 

"All prepaid orders must be for full amount by Cashier's Check only, payable to CornputerWorld California residents, please add 6% sales tax. 



ORDERING INFORMATION: 



TELEX 182274 



■1. Type or print item(s) you wish to order. 

2. If you pay by personal check: please allow 2 weeks for personal check to clear. 

3. If you pay with bank card: We accept VISA, BankAmericard, MasterCharge. Please include bank card number, 
card expiration date, and your signature. 

4. Add 50* for postage and handling of books, manuals, catalogs, and magazines. Add $10,00 for shipping, 
handling, and insurance for hardware and systems orders. 

5. Send orders to Computer World, 6791 Westminster Ave., Westminster, CA 92683. California residents, please add 
6% sales tax. 
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A RAYGAM COMPANY 



6791 Westminster Ave., Westminster, C A 92683 (714) 891-2587 



QUICK CHANGE ARTISTRY 




ENGINEERED SPECIFICALLY FOR 
THEKIM-1 MICROCOMPUTER 

• Protection of Chips and 
Other Components 

• Viewing Angle of Readout 
Enhanced 

• Improved Keyboard Position 
for Easier Operation 

EASILY ASSEMBLED 

• Absolutely No 
Alteration of KIM-1 Required 

• All Fasteners Provided 

• Goes Together in Minutes 
with a Small Screwdriver 



ATTRACTIVE FUNCTIONAL PACKAGE 

• Professional Appearance 

• Four Color Combinations 

• Improves Man/Machine Interface 
MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• KydexlOO* 

• Durable 

• Molded-ln Color 

• Non-Conductive 
AVAILABLE FROM STOCK 

• Allow Two to Three Weeks for 
Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 

NAME 

STREET 

CITY 



1. Fill in this Coupon (Print or Type Please) 

2. Attach Check or Money Order and Mail to: 



STATE 



ZIP 



Please Ship Prepaid SKE 1-1 (s) 

@ $23.50 Each 
California Residents please pay 

$25.03 (Includes Sales Tax) 



the 

enclosures 

group 

771 bush street, san francisco 94108 

Color Desired blue □ beige □ 
black □ white □ 



TM Rohm & Haas 



Patent Applied For 



TSAR: A Time Sharing Administrative 
Routine for the KIM-1 



If you think the KIM-1 is too small to do interesting jobs, 
then consider this program. TSAR is a super monitor 
which supports time-sharing, opening the door to a wide 
variety of new capabilities. The techniques can easily 
be translated for use on other computers. 



Philip K. Hooper 
3 Washington Street 
Northfield, VT 05663 



) 



The program presented here takes 
over supervisory control of the KIM-1, 
demoting the KIM monitor to the role of 
"just another program" sharing execu- 
tion time with a list of user programs. 
The monitor, with its display and 
keypad, remains available while user 
programs are running, permitting true 
"front panel" operation; examination 
and even alteration of memory during 
program execution. There is provision 
for inserting breakpoints into a program 
while it is running, as well as a TSAR- 
compatible breakpoint servicing routine. 
Although the system as presented is 
configured for six programs, in addition 
to the monitor and TSAR itself, it is easi- 
ly expanded to provide supervision for 
as many user programs as memory and 
stack requirements permit. 

Introduction 

Not long ago, if anyone had sug- 
gested to me that I should write a time- 
sharing system for my KIM-I, I would 
have objected on two counts: first, that 
it would be pointless with such a small, 
single-user system; second, that it 
would be far too complicated to design, 
implement, and operate. I would have 
been wrong on both counts. 

I had been working on a design 
problem — the problem of providing a 
perfectly transparent operating environ- 
ment for my TVT-6 video board. This in- 
expensive and very versatile board 
draws its timing signals directly from 
the address bus of the MPU and can not 
function normally without the full, undi- 
vided attention of KIM, making its use 
along with another program rather awk- 
ward to orchestrate. 

When I had finally tamed the micro- 
seconds and sync pulses and had my 
transparent display operational, I loaded 
my LIFE program and settled back, 
regarding the result with satisfaction 
and noting how cooperative it all seem- 
ed, with the display driver and LIFE pro- 
gram sharing the time of the MPU. And 
then it hit me! This was already a 



timesharing system. Moreover, leaving 
out the TVT-6 would let me streamline 
the system and also extend it to the 
supervision of many "simultaneous" 
programs. 

Before explaining the operation of the 
system, let me note resources the 
system requires as well as some of the 
features it offers. Its needs are few: an 
unexpanded KIM-1 provides sufficient 
memory for overseeing the operation of 
thirty-some programs; the supervisory 
routine, TSAR, resides in forty-four bytes 
of page twenty-three; a special, and op- 
tional, breakpoint routine occupies 
another fifteen bytes on thai; page; fif- 
teen page zero locations are required for 
storing system variables under a six- 
user-program configuration (with two 
additional bytes needed for each pro- 
gram over six); and page one is 
distributed as stack space for the 
various programs. 

The only hardware expansion needed 
is a wire, or possibly a switch, allowing 
the interval timer to send an interrupt to 
the MPU. (See Figure 1.) A speaker, con- 
nected as in the Kim User Manual, can 
provide dramatic examples of the sys- 
tem's use, but is certainly not essential 
to its operation. 

The most useful aspect of the system 
is, in my opinion, provision for a full hex 
front panel. Under the KIM monitor, the 
keypad and display are used almost ex- 
clusively to enter and initiate programs. 
Though individual programs may use 
them for special purposes, they general- 
ly remain idle during program execution. 
Under TSAR, however, the monitor is 
timeshared and becomes a monitor in 
the full sense of the word, remaining ac- 
tive while other programs are executing. 
This permits the on-line examination 
(and even alteration) of any memory 
location, so that one can, for instance: 
watch a counter as it approaches zero, 
alter the value of a byte of data to deter- 
mine its effect on the program, or even 
change an instruction opcode, all while 
the program is running! Essentially it 



brings full interaction to KIM-1, letting 
the user and running programs interact 
through the services of the monitor. 

The cost of this continuous monitor- 
ing is time— the user programs run more 
slowly when timeshared— but there are 
occasions, as during certain program 
development stages, where this can be 
an advantage. By using this system with 
five dummy programs having large time 
slices, we produce an interactive slow- 
stepper. By letting the programs modify 
each other's time slices (an unnatural 
activity recommended only for produc- 
ing unpredictable results) we can create 
an enormous variety of unusual timing 
patterns. 

The Timesharing Procedure 

The 6502 provides ready access to and 
manipulation of the stack pointer, and 
this in turn permits the realization of a 
fairly simple timesharing procedure. The 
programs to be run are placed in a queue 
and are activated and recalled by TSAR 
as it cycles through the queue. So TSAR 
can keep adequate track of these pro- 
grams, each has its own stack area, 
stack pointer, and time slice determin- 
ing how long the program will be active 
when its turn comes. The user selects 
the stack areas from page one, while the 
corresponding stack pointers and the 
time slices are kept in two page zero 
lists, STAX and TIMES respectively. The 
index number (position in the queue) of 
the program currently executing is 
stored in location INDEX. Figure 2 il- 
lustrates this procedure. 

Assume that one of these programs, 
say P2, is running. Under TSAR, the in- 
terval timer will also be running, and 
armed, loaded initially with the time 
slice for P2 from TIMES + 2. At "time 
out," TSAR will be re-entered at location 
1780, via the NMI vector, and after 
disabling further interrupts TSAR will 
save registers A, X, and Y on the stack 
reserved for P2. P and PC have already 
been saved there, as part of the interrupt 
response of the 6502. TSAR will then 



November, 1979 



MICRO — The 6502 Journal 



18:35 



PB7 



lag 



d 



^. 



NMI 



"T" 

A-15 



}4 



k r m 



£-6 E-4 



b 



Figure 1: Enabling the timer interrupts. A SPDT switch connecting 
PB7 to either NMI or IRQ permits the fullest realization of TSAR's 
capability. The switch setting should not be changed without first 
setting both interrupt vectors to point to the monitor. 



replace the stack pointer value for P2 in 
STAX + 2, the second position of the 
ST AX list. This procedure is illustrated in 
Figure 3. 

Disabling further interrupts at this 
time has no effect on the minimal con- 
figuration but is adviseable if there are 
other devices that could pull IRQ low 
connected to the system, to inhibit inter- 
rupts from them during operation of the 
supervisory routine. 

Program 2 now remains idle until IN- 
DEX again assumes the value of 2. 
Before that occurs, TSAR will have look- 
ed at six other INDEX values; activated 



and later recalled those programs cur- 
rently enabled— those with non-zero 
time slices; kept the monitor enabled; 
and maintained STAX as needed. At any 
rate, when INDEX = 2 does recur, the 
time slice for P2 will be brought in from 
TIMES + 2 and examined by TSAR. If this 
is zero, P2 is disabled and will be passed 
by. Otherwise, this time slice will be writ- 
ten to the timer, to initiate another time 
period during which P2 may execute. 

Next, the stack pointer specific to P2 
will be brought back from STAX + 2 and 
used to access P2's private stack, from 
which the saved values of the Y, X, and A 
registers will be pulled. Finally, an RTI 



TSAR: BY PHILIP K. HOOPER 
MODIFIED 7-19-79 BY MICRO STAFF 



17BC 




COUNT 


* 


$0000 


17BC 




X 


* 


$0300 


17BC 




INDEX 


* 


$00E0 


17BC 




TIMES 


* 


$00E1 


17BC 




STAX 


* 


$00E8 


17BC 




POINTL 


* 


$00FA 


17BC 




TIMER 


* 


$170E 


17BC 




DELAY 


* 


$1ED4 


17BC 




INCPT 


* 


$1F63 


1780 






ORG 


$1780 


1780 78 




ENTER 


SEI 




1781 48 






PHA 




1782 8A 






TXA 




1783 48 






PHA 




1784 98 






TYA 




1785 48 






PHA 




1786 BA 






TSX 




1787 A4 


E0 




LDY 


INDEX 


1789 96 


E8 




STXZY 


STAX 


178B A5 


El 




LDA 


TIMES 


178D DO 


02 




BNE 


INDEC 


178F C6 


E1 




DEC 


TIMES 


1791 ce 


E0 


INDEC 


DEC 


INDEX 


1793 10 


04 




BPL 


TINDX 


1795 A0 


06 




LDYIM 


$06 


1797 84 


E0 




STY 


INDEX 


1799 A6 


E0 


TINDX 


LDX 


INDEX 


179B B5 


E1 




LDAX 


TIMES 


179D F0 


F2 




BEQ 


INDEC 


179F 8D 


0E r 




STA 


TIMER 


17A2 B5 


E8 




LDAX 


STAX 


17AM AA 






TAX 




17A5 9A 






TXS 




17A6 68 






PLA 




17A7 A8 






TAY 




17A8 68 






PLA 




17A9 AA 






TAX 




17AA 68 






PLA 




17AB 40 




LEAVE 


RTI 





PLEASE DO NOT DISTURB 

PLACE 

ALL 

REGISTERS 

ON THE 

STACK 

GET CURRENT STACK POINTER FROM MPU 

NOW, WHICH PROGRAM IS RECALLED? 

STASH STACK POINTER FOR INTERRUPTED PROGRAM 

EXAMINE TIMING CONSTANT OF MONITOR 

IF ZERO, MONITOR DISABLED - MUST RESTORE 

RESET MONITOR TIME SLICE 

DECREMENT INDEX TO NEXT PROGRAM 

POSITIVE DENOTES VALID INDEX 

OTHERWISE, RESET INDEX TO POINT TO THE 

GREATEST PROGRAM QUEUE INDEX 

TENTATIVE INDEX OF NEXT PROGRAM 

FETCH PROGRAM TIME SLICE 

IF ZERO, PROGRAM DISABLED - PICK ANOTHER 

DEPOSIT TIMING INTERVAL IN COUNTER - ENABLE INT 

FETCH STACK POINTER FOR REACTIVATED PROGRAM 

PUT STACK POINTER IN X REGISTER 

AND DEPOSIT STACK POINTER INTO MPU 

BRING 

IN 

REGISTERS 

OFF 

STACK 

RETURN TO THE PROGRAM 



will draw the status register and pro- 
gram counter from this same stack, and 
P2 will be off and running again, from 
the very place at which it was inter- 
rupted. If no other program interferes 
with its storage areas, P2 will function 
as though it were the only program in the 
KIM, although a bit more slowly. 

In a small system like this, without 
software-initiated memory protect or 
disk-based page swapping, any unwant- 
ed interaction between programs must 
be prevented by the programmer. This is 
managed through carefully planned 
memory allocation and through the use 
of stack storage to make any shared 
routines fully reentrant— using different 
storage areas (stacks) depending on 
which program is using the routine. 
Therefore, whenever the monitor is in- 
cluded as an enabled program, the 
monitor subroutines which use RAM 
temporary storage and those which 
serve the monitor's keypad and display 
routines should not be called by a user 
program. The results would be unpre- 
dictable and would probably prevent in- 
teractive use of the monitor. 

This sequence of execution, interrup- 
tion, dormancy, reactivation is followed 
by all programs on the queue, including 
the monitor. Depending on its time slice, 
each enabled program receives from 64 
to 16320 microseconds of execution 
time, minus TSAR's overhead, when its 
turn arrives, while those disabled by a 
null time slice are simply passed over. 
With six programs enabled in addition to 
the monitor, TSAR exacts roughly 80 
microseconds to process each interrupt, 
and each disabled program increases 
this by about 20 microseconds to a max- 
imum of 200 with the monitor alone 
enabled. The more work the system has 
to do, the more efficient it becomes! Of 
the above times, 30 microseconds is 
taken from the time slice of the program 
being reactivated, so that a time slice of 
01, representing a single sixty-four 
microsecond portion, will actually pro- 
vide thirty-four microseconds of execu- 
tion time for the program, each time 
around, 

A time slice range of from 1024 to 
261,120 microseconds can be installed 
by replacing the value of the byte at 
17A0 with "OF", which starts the timer's 
counter in the divide-by-1024 mode in- 
stead of the divide-by-64 mode. Although 
this reduces the relative time penalty 
charged by TSAR, it also degrades the 
response of the monitor somewhat. 

Oddly enough, this is an example of 
one of the peculiar charms of the TSAR 
system. Some of the aggrevations that 
TSAR introduces— monitor response an- 
noyingly slow at times, startup routine 
hard to remember, recovery from a crash 
a major undertaking — all of these pro- 
vide the peculiar sensation that one is 
working on some sort of monster sys- 
tem and not just a KIM-1 with 1K of 
memory and a 50-odd byte timesharing 
supervisor. 
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The code for this procedure is 
presented in the listing. Note that the 
sections of code for the normal (inter- 
rupt to 1C00) entry and normal ("GO" 
-1DC8) exit for the ROM monitor are 
closely related to the entry and exit code 
for TSAR. Both involve storing, and later 
retrieving, the contents of the PCH, PCL, 
P, A, Y, X, and SP registers, which to- 
gether completely specify the internal 
state of the MPU. However, while the 
monitor stores these values in fixed, 
page zero locations, TSAR places them 
in a user stack reserved for the par- 
ticular program which has just been 
recalled. 

Using the monitor as the operating 
system, the user can alter these zero 
page locations holding register values, 
making it possible to exit from the 
monitor to a different program, with a 
different set of operating parameters, 
than the program that was running 
before. TSAR does this automatically, 
by pulling the register values from a dif- 
ferent stack, the one corresponding to 
the program about to be activated, 
rather than from the stack for the pro- 
gram which was just recalled. 



INDEX 



INDEX 
VALUES 

TIMES 

STAX 

PARAMETERS 
FOR: 

INDEX C0OE0) 

TIMES (0OE1) 

STAX (0OE8) 




00 


01 


02 


03 


04 


05 


06 


00E1 


00E2 


00E3 


00E4 


00E5 


00E6 


00E? 


0OE8 


00E9 


00EA 


0OEB 


OOEC 


00ED 


0OEE 



LIST OF 
TIME SLICES 



LIST OF 

STACK POINTERS 



MON- 
ITOR 



PROG 

1 



PROG 
2 



PROG 
3 



PROG 

4 



PROG 
5 



PROG 
6 



* SAMPLE PROGRAMS FOR EXERCISING TSAR 



02EA 4C E0 02 



1ST SAMPLE PROGRAM MERELY COUNTS, IN HEX, THE NUMBER 
OF TIMES IT IS ACTIVATED, STORING THE COUNT IN $0000, 
WHICH SHOULD BE PRESET MANUALLY TO ZERO 



CLEAR ACCUMULATOR AND USE IT TO 

ZERO OUT THE MONITOR TIME SLICE 

FETCH THE MONITOR TIME SLICE, AND REMAIN 

THIS LOOP AS LONG AS IT IS ZERO 

RECORD THE CHANGE, WHICH INDICATES 

COMPLETION OF ANOTHER 

CYCLE THROUGH THE QUEUE, AND REPEAT 



02E0 




ORG 


$02E0 


02E0 A9 00 


START 


LDAIM 


$00 


02E2 85 E1 




STA 


TIMES 


02E4 A5 E1 


LOOP 


LDA 


TIMES 


02E6 F0 FC 




BEQ 


LOOP 


02E8 E6 00 




INC 


COUNT 



JMP START 



0215 B0 F3 



NOTE: USING THE MONITOR TIME SLICE AS A FLAG TO 
INDICATE TO A PROGRAM WHEN IT HAS BEEN RECALLED 
AND THEN REACTIVATED IS A USEFUL TRICK, BUT 
AT A TIME 

2ND SAMPLE PROGRAM ALSO COUNTS CYCLES, BUT IT 
DOES SO IN BCD, KEEPING THE LEAST SIGNIFICANT 
DIGITS IN 05FF, THE NEXT TWO IN 03FE, 
AND SO ON. IT CAN COUNT VERY HIGH. 



DECIMAL SPOKEN HERE 

SET CARRY SO ADDER WILL WORK PROPERLY 

SET X REGISTER TO ZERO TO 

ZERO THE MONITOR TIME SLICE 

CHECK MONITOR TIME SLICE AND, 

IF IT IS ZERO, KEEP ON CHECKIN' 

TO FF, TO INDEX, INITIALLY, 03FF 

GET CONTENTS OF 03XX 

ADD 1, SINCE THE CARRY IS SET 

AND PUT IT BACK WHERE WE FOUND IT 

WITHOUT CARRY, ADDITION IS FINISHED 

50 WAIT TILL NEXT TIME, OTHERWISE 

BACK UP< TO NEXT DIGIT & PROPAGATE CARRY 



holds the number assigned to the program currently active 
and is used as an offset to retrieve information from... 

which is a list of seven time slices, for six user 
programs and the monitor, and from... 

which is a list of the seven stack pointers for these 
progra.ns. 

Figure 2: Use of page zero memory, 00E0-00EE 



While the monitor uses a single loca- 
tion, 00F2, for storing its only stack 
pointer, TSAR maintains a list, STAX, of 
stack pointers, one for each program on 
the queue. The six bytes of code from 
178B to 1790 were included as an after- 
thought, after several foolish blunders 
on my part had let the system escape 
from my control. They merely guarantee 
the monitor's presence by forcing its 
time slice to "FF" if it is ever found at 
"00". Resorting to reset, to restore the 
monitor, is fun the first few times only. 
Nonetheless, these six bytes and the fif- 
teen bytes used to service breakpoints 
may be deleted without otherwise affec- 
ting TSAR. 

Bringing Up The System 

Managing the TSAR system is quite a 
bit more complex than running a single 
program on the KIM, and several steps 
are required to put it into operation. The 
following sequence will generate a func- 
tioning TSAR system. 



IN 



0200 






ORG 


$0200 


0200 F8 




START2 


SED 




0201 38 




STALL 


SEC 




0202 A2 


00 




LDXIM 


$00 


020M 86 


E1 




STX 


TIMES 


0206 A5 


E1 


L00P2 


LDA 


TIMES 


0208 F0 


FC 




BEQ 


L00P2 


020A CA 




NEXT 


DEX 




020B ED 


00 03 




LDAX 


X 


020E 69 


00 




ADCIM 


$00 


0210 9D 


00 03 




STAX 


X 


0213 90 


EC 




BCC 


STALL 



BCS NEXT 



NOTE; THIS PROGRAM MAY BE USED WITH THE PREVIOUS 
PROGRAM BY HAVING ONLY ONE OF THEM MESS WITH 
TIMES AND HAVING THEM SHARE A RAM LOCATION AS 
A FLAG. ONE SETS THE FLAG, WHILE THE OTHER 
RESETS THE FLAG AND LOOPS. 



1. Verify that PB7 is connected to 
NMI {Figure 1). 

2. Load TSAR into 1 780-1 7BB, from 
keypad or tape. 

3. If loading was from the keypad, 
verify correctness of code. 

4. Set 17FA,B to point to 1780 and 
set 17FE,F to point to 17AC, pro- 
viding the proper interrupt vec- 
tors for TSAR. 

5. Load all locations from 00E0 
through 00F1 with "00". 

6. Press "RS", guaranteeing the 
stack pointer (monitor) at FF. If 
you are planning to use the DE- 
LAY subroutine from the ROM, 
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The monitor or a 
user program will 
execute until its 
time slice has been 
exhausted, at which 
time the interval 
timer generates an 
interrupt which 
returns control to 
TSAR r where the 
current program is 
retired and the 
next enabled program 
is activated 






Disable interrupts 


timer times out 

RTT to next program on lis 






* 




Save all registers 




1 




Store stack pointer 




l 




Protect monitor 




1 




Select next program 




i 




Load and arm timer 




1 




Retrieve new pointer 




1 


t 


Restore all registers 


that is enabled 
n 




Monitor or user program 

running under supervisio 
of TSAR. 


The activities of TSAR as 
it supervises the system. 



Figure 3: Flow of control in the TSAR system. 



Table 1 
Register Value Storage by the TSAR and by the KIM Monitor 

KIM Monitor 

Saved Dedicated KIM 

Page Zero RAM Locs. 

00F4 

OOFS 

00F3 

00F1 

OOEF (OOFA) 

00F0 (OOFB) 

Interrupt entry to TSAR (at 1780) or the Monitor (at 1C00) will store the MPU 
registers in the locations indicated above. Leaving TSAR via an RTI will restore 
these values to the MPU. Leaving the Monitor by using 'GO' restores the MPU 
from these RAM locations, except that the PCL and PCH are loaded from OOFA 
and OOFB (the pointer), respectively. To replace the original program counter into 
the MPU, the contents of OOEF and 00F0 are first transferred to OOFA and OOFB by 
pressing the 'PC key, moving the Program Counter into the pointer. 



TSAR 




Typical User Program 


Regis 


Stack Locations 




01 DA 


Y 


01 DB 


X 


01 DC 


A 


01 DD 


P 


01 DE 


PCL 


01 DF 


PCH 



» 


Initial 
value 


Initial 

X 

value 


Initial 

A 

value 


Initial 

flag 

values 


Initial 
PCL 
(E0) 


Initial 
PCH 
(02) 



01D9 



01DA 



01DB 



01DC 



01DE 



01DF 



Figure H: Initialization of a user program stack. The stack pointer initially 
points to 01D9, but since it is incremented before any values are pulled, the 
contents of 01D9 have no effect on the program. 



remember that reset puts 17F3 
to "FF". Also, if you are inten- 
ding to use either port A or port 
B for output, you must recon- 
figure at this time, since reset 
configures all port lines as in- 
puts. 

7. Examine address 00E1, the 
monitor time slice. It will be 
"00". 

8. Press "ST", NOT "GO"! we in- 
tentionally interrupt the monitor 
at this point to raise the activity 
to the TSAR system level. The 
val^ue at 00E1 should now 
become "FF" as the monitor pro- 
tection routine leaps in. If this 
does not happen, briefly address 
location 170C, another way to 
get an NMI pulse, and return to 
viewOOEL If it still does not read 
"FF", reset and check the star- 
tup sequence. 

9. Now, assuming 00E1 is at "FF", 
try to key in "00". If the system 
rejects this, keeping "FF" in- 
stead, timesharing is in opera- 
tion. If "00" is accepted in 00E1, 
generate another NMI (by ex- 
amining 170C again) and verify 
timesharing as above. 

10. As a final indication that time- 
sharing is in operation, examine 
00E8, the stack pointer for the 
monitor. Since the monitor is be- 
ing interrupted, and not always 
at the same place, the value of 
0OE8 should change, probably 
flitting quickly from "F5" to "F7" 
and back. Any sign of flickering 
here verifies that TSAR is in 
charge and that timesharing is 
under way. 

11. Key in a user program, noting 
that the monitor behaves as it 
always has. If you intend to load 
any user programs from tape, do 
so before step 8, as the timing 
changes under TSAR are not 
compatible with serial I/O. 
Assume that this first user pro- 
gram starts at location 02E0, as 
does the first of the sample pro- 
grams, and that its stack ex- 
tends downward from 01 DF, 
leaving 32 bytes for the monitor, 
far more than it will ever need. 
This is program 1 (the monitor is 
program 0), so its initial stack 
pointer will go into STAX + 1, 
00E9. This stack will be access- 
ed initially by lines 17A6 to 17AB 
of TSAR. Since TSAR first pulls 
register values for Y, X, and A, 
and then (with RTI) pulls three 
more values for P and PC, we 
must provide these six values 
immediately above the stack 
pointer. The values in the first 
four of these locations are used 
for the initial register contents 
when program 1 starts running. 
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As they are of no consequence 
for the sample programs, they 
may be set to "00" or left as 
found. However, the final two 
locations, 01 DE and 01 DF, hold 
the program counter for program 
1 and must, in this case, be in- 
itialized to "E0" and "02" 
respectively, to provide the star- 
ting address, 02E0. Since the 
stack pointer must initially point 
to location 01 D9, a "D9" is keyed 
into location 00E9. 

12. Recheck the program code, 
stack values, and stack pointer. 

13. Examine location 0bE2 (TIMES 
+ 1), the time slice for program 
1, and change it to a non-zero 
value. If your program does 
anything you can sense, you 



should be sensing it now. If it 
uses a counter, address the 
counter and watch it move. 
Return to 00E2 and vary the time 
slice, noting how the program 
execution speeds up and slows 
down. Change 00E1 and note its 
effect on the execution rate of 
your program. Enjoy it for a 
while, and then bring another 
program into the system. The 
procedure will be the same as 
above, from step 11 on although 
a different location must be us- 
ed for the stack, different in- 
itializing information must be 
placed on the stack, and the new 
stack pointer must be stored in a 
different position of ST AX. Dis- 
able the first program; run either, 
both, or neither of them; play 
with it! 



You are MASTER of your own time- 
sharing system! The sample programs 
provided do not represent the full range 
of TSAR's potential. For one thing, keep- 
ing the monitor on-line prevents 
program-generated information from ap- 
pearing on the display. With additional 
devices for output, the variety of in- 
teresting programs that can be run 
under TSAR is increased greatly. 

For example, a memory-mapped video 
output can provide a very dramatic 
visual demonstration of timesharing. 
With a speaker connected as shown in 
the Kim User Manual, several programs 
may each toggle the speaker at rates 
determined by DELAY, a KIM monitor 
sub-routine at 1ED4 used for serial tele- 
printer I/O but also useful whenever a 
long software delay is required. They 
may also alter the DELAY parameters, 



VALUE AT 
THE TIME 
OF BREAK 



X 

ITS OWN 
INDEX 



A 

(00) 



p 

FLAGS 
B, Z f ETC 



PCL 
.EITHER 
B5 OR B7 



PCH 
(17) 



X A P 
THESE VALUES WERE STORED 
WHEN THE BREAK OCCURRED 

I I 



PCL PCH 
THESE POINT TO THE 
INSTRUCTION AFTER 
BREAK OP-CODE 



^ 

Loaded when break actually occurs. 



Loaded when timer interrupts breakpoint routine. 
Figure 5: Breakpoint stack contents. After recall, the pointer addresses the location below the Y value. 



0217 20 DU 


IE 


START3 JSR 


021A 20 63 


IF 


JSR 


021D A5 FA 




LDA 


021F 85 E4 




STA 


0221 4C 17 


02 


JMP 



* 3RD SAMPLE PROGRAM ADVANCES THE POINTER (00FA,B) 

* TO DISPLAY SUCCESSIVE MEMORY LOCATIONS. IT 

* INTERFERES SEVERELY WITH THE SIMULTANEOUS USE OF THE 

* MONITOR KEYPAD AND DISPLAY. 



DELAY (PRESET 17F2 AND 17F3 TO 

DETERMINE RATE OF DELAY 

INCPT INCREMENT THE POINTER, 00FA,B 

P0INTL GET THE LOW BYTE OF THE POINTER 

AND USE IT AS THE VALUE 

TIMES +03 VALUE OF THIS PROGRAM, SHOWN AS 3 

START3 AND KEEP GOING 



NOTE: THIS PROGRAM BEHAVES UNPREDICTABLY. IT MIGHT 
DISABLE ITSELF, OR IT MIGHT SUSPEND THE ENTIRE SYSTEM 
OR IT MIGHT KNOT. 



• BREAKPOINT SERVICE ROUTINE * 

• (ENTRY FROM IRQ VECTOR) 



SAVE A 
AND X 

ON THE STACK 
CLEAR A 

DETERMINE WHICH PROGRAM CAUSED BREAK 
AND DISABLE IT 
SLUMBER IN A LOOP UNTIL 
RECALLED BY TSAR 
JMP G0BACK LET TSAR RESTORE X AND A BEFORE RETURN 
* 

* NOTE: THE RT1 CODE AT $178B (IN TSAR) IS EXECUTED 

* TWICE AS A PROGRAM IS RE-AWAKENED AFTER A BREAK 



17AC 




ORG 


$17AC 


17AC U8 


BREAK 


PHA 




17AD 8A 




TXA 




17AE 48 




PHA 




17AF A9 00 




LDAIM 


$00 


17B1 A6 E0 




LDX 


INDEX 


17B3 95 El 




STAX 


TIMES 


17B5 B5 E1 


SLEEP 


LDAX 


TIMES 


17B7 F0 FC 




BEQ 


SLEEP 


17B9 4C A8 17 




JMP 


G0BAC 



(17F2,3), modify each other's time slices, 
and toggle the speaker port between in- 
put and output, producing a type of 
mayhem in the speaker that varies from 
WWII soundtracks, to tuba contests, to 
bouncing ball bearings, to almost- 
human-sounding arguments. Using "OF" 
to provide longer time intervals 
enhances this cacophony. 

With several input devices (joysticks, 
keypads, even push buttons), TSAR per- 
mits the user connected to each device 
to have apparently sole use of the 
system, timesharing in the traditional, 
multi-user sense. With suitable ground 
rules established, the users could even 
play a version of "core war" in which 
each tries to get his (no doubt self- 
relocating) program to destroy the other 
programs before getting zapped by one 
of them. This has a vaguely evolutionary, 
survival-of-the-fittest undercurrent that 
keeps it from becoming too abstract. 

Keeping It Up 

One problem the TSAR system does 
present is that, lacking proper safe- 
guards, it is somewhat fragile. A single 
program, running amok, can bring down 
all of the others, including TSAR. For- 
tunately there are some methods for re- 
covering gracefully from crashes, and 
even for averting many of them. 
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If the system seems to be misbehav- 
ing, it is a good idea to locate and dis- 
able the guilty program before it can in- 
terfere with other programs, the monitor, 
or TSAR. It is easy to disable any pro- 
gram simply by setting its time slice to 
zero. A record detailing what program is 
where on the queue and where the 
various stacks and stack pointers are 
located is very useful here. Once a pro- 
gram has been deactivated, it may be re- 
placed on the queue with a different pro- 
gram, or it may be altered (repaired?) 
and then returned to service by a simple 
time slice change. 

If disabling the suspect program fails 
to correct the system, the best pro- 
cedure is to disable all user programs, 
and the faster the better. Then re-intro- 
duce them individually, testing them one 
at a time with the monitor. An externally 
generated IRQ signal is the quickest, 
cleanest way to disable all user pro- 
grams, as it invokes the breakpoint ser- 
vice routine which disables the currently 
active program in an orderly manner. An 
interesting alternative is to have a 
special "shutdown" program ready but 
disabled. In case of trouble, enabling 
this program sends it into action to dis- 
able everything else and, finally, itself, in 
an orderly manner. 

Triggering IRQ several times will null 
the time slices of all programs (monitor, 
however, remains, because it is not sus- 
ceptible to IRQ), leaving each in a 
suspended state from which it can be 
returned to service by simply changing 
its time slice. This is a much less severe 
insult to the system than a reset pro- 
duces, and it should be tried first, when- 
ever dysfunction is suspected. Of 
course, if the system is hung in a loop 
with the I flag set, IRQ will be ignored 
and only a reset will affect the system. 

If the system is 'hung', probably in- 
dicated by a stable, partially-lit display, 
the only option is a reset. Then, examine 
INDEX (00E0), to determine which pro- 
gram was running at the time of the 
reset interrupt. Disable that program 
and, if it was the whole problem, a "hot 
start" (set location 00E0 to "00" and 
then examine location 170C) should re- 
kindle the system, minus the malfunctor. 
You can next locate the stack pointer for 
the disabled program and use it to deter- 
mine the register contents (roughly) 
when it was last activated. Compare this 
with the response of the monitor at 
reset, which sets both the stack pointer 
and 00F2 to "FF", obliterating any 
traces of stack activity. 

Breakpoints 

Unique to TSAR, the provision for in- 
terrogating the code of a program while 
it is running can even be extended 
through the use of breakpoints, which 
themselves may be inserted into the pro- 
gram while it is running. This feature 
depends upon the coincidental good for- 
tune that each 6502 branch instruction 
ends in a zero and can, therefore, be 



shifted left to the break code "00" 
without producing any dangerous inter- 
mediate code. 

Recall that the timesharing procedure 
probably prevents entering, through the 
monitor, more than one hex character 
per time slice. For example, keying the 
break code over the code "4C" would 
first produce the interim code "CO" 
which would create havoc if executed 
before the second zero could be keyed 
in, during the next monitor time period. 
Changing a branch code, "X0", to a 
break code presents no such problems. 
Of course, there is the option of dis- 
abling the program, inserting the break, 
and reenabling it again; but inserting the 
break into "moving code" is more ele- 
gant and much more exciting. 

When a break code is encountered, a 
non-maskable IRQ is generated, vector- 
ing control to the BSR code, presented 
in the listing. This routine first saves the 
A and X registers on the stack used by 
the interrupted program. It then sets the 
time slice of the interrupted program to 
zero, and loops on this condition until 
the current time slice expires and the 
program is recalled by TSAR. The user 
can detect the occurrence of a break by 
watching the location holding its time 
slice, or he can provide a watchdog pro- 
gram to monitor this value and produce 
a signal when it detects a zero. TSAR 
will bypass this program on subsequent 
cycles through the queue, because of its 
null time slice, so the idle program, its 
breakpoints, and its stack may be ex- 
amined and altered at leisure, until it is 
ready to be run again. 

At that time, merely keying in a non- 
zero time slice for the program signals 
to TSAR that it is to be reactivated, when 
its turn comes. Although reactivation 
returns it to the loop where it was sleep- 
ing before recall, the loop condition 
(time slice = zero) has been changed, 
so the program can escape from this 
loop and reenter its old code at the next 
instruction after the break. 

Since the procedure for bringing a pro- 
gram back from a break is somewhat in- 
volved, requiring as it does the unnest- 
ing of two different interrupts, a closer 
look might be worthwile. First TSAR, at 
line 179D, discovers that the program is 
again enabled, so its time slice is loaded 
into the interval timer. Then the stack 
pointer for this program is brought in 
from STAX. It will point to the location 
just below that where the Y register was 
stored. Registers Y, X, and A are loaded 
from this stack, and RTI restores the flag 
register, in which the Z flag is SET, and 
returns control at line 17B5 or 17B7 of 
the breakpoint routine. This is the stall- 
ing loop where the program idled from 
the break interrupt until its former time 
slice expired and it was recalled by 
TSAR. 

Now, however, its time slice has been 
adjusted from zero, and when thiis is dis- 
covered the loop is abandoned and con- 



trol goes once more to TSAR's exit rou- 
tine, this time at 17A8. The X and A 
values from before the break are brought 
in, and the second pass through RTI re- 
stores P and PC, returning control to the 
user program at the instruction follow- 
ing the branch/break code. This entire 
procedure is carried out with no effect 
on the other programs operating under 
TSAR, except that each runs a bit more 
slowly when this program returns to ser- 
vice and again requires a slice of the 
MPU's time. 

Caveat Computor 

Because of significant differences 
between operating under TSAR and 
operating under the KIM monitor, a few 
warnings are in order. Although most 
have been mentioned before, they are 
collected here for emphasis and elabor- 
ation. Programs running simultaneously 
under TSAR, including the monitor, must 
not normally share RAM storage or use 
common subroutines unless they are ful- 
ly reentrant. This restricts user pro- 
grams from calling the keypad and dis- 
play routines if the monitor is enabled, 
and monitor RAM locations, like the 
pointer at 00FA.B must be scrupulously 
avoided. However, it is possible to bring 
up the TSAR system without an enabled 
monitor, permitting user programs to 
use the monitor utility routines. Simply 
altering the monitor protect code and 
then disabling the monitor is an in- 
elegant but easy way to manage this. It 
does, however, fill one place on the 
queue with a dead monitor. 

A better procedure is to set up all the 
stacks, time slices, and pointers in ad- 
vance, initiate the execution of a single 
user program from the monitor (with 
"GO"), and then use "ST" to leap up to 
TSAR. Although this approach sacri- 
fices interactive control of the system, 
that may be prevented by giving up the 
breakpoint routine and re-directing IRQ 
to the monitor at 1C00. An external 
device (switch?) that can deliver an IRQ 
might now restore the monitor on-line. 
Note that this procedure differs -from a 
recall by TSAR, in that the registers of 
the interrupted program are saved in 
monitor RAM instead of the program 
stack, meaning that the monitor has, for 
the time being, replaced one of the user 
programs on the queue. When the 
monitor is no longer needed, "PC" 
followed by "GO" will switch them back 
again, putting the monitor out of and the 
user program back into circulation. 

A disadvantage of this procedure is 
that, without additional control hard- 
ware, the program which is replaced by 
the monitor will be selected by chance, 
and several attempts may be needed to 
locate a suitable candidate, one you are 
willing to have idle as long as the 
monitor is in use. To minimize repeated 
blind interrupts and restarts of the sys- 
tem, disable all of the programs that you 
wish to keep running the first time you 
IRQ the system into the monitor. This 
greatly increases the chance that, on the 
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next interrupt, a non-essential program 
will be replaced by the monitor, and then 
the disabled programs can be reenabled. 
I prefer, instead, to retain continuous 
monitor presence and have my user pro- 
grams do their I/O through ports rather 
than through the keypad and display 
routines. 

Because of the changes in timing in- 
troduced, serial I/O drivers, such as the 
cassette and serial teleprinter routines 
in the ROM, cannot be expected to 
operate properly under TSAR. 

For more than six user programs, 
references to STAX, TIMES, and INDEX 
will need to be changed in TSAR, to re- 
flect the re-organization of page zero 
memory use. 

One of the most bizarre malfunctions 
that can occur under TSAR is to have 
more than one copy of the monitor con- 
currently active. Since the code is not 
reentrant, the multiple copies share 
RAM locations and interact oddly, pro- 
ducing such symptoms as: 

a. Keystroke double entry. This 
may be nice for bbookkeepers, 
but it makes it very difficult to 
address location 0327 when 
pressing the "3" key inserts two 
nibbles of "3", while the " + ' 
key advances two cells at a time 

b. Total or sporadic failure to res- 
pond to certain keystroke com 
mands, as one copy of the 
monitor receives the command 



but, before it can finish ex- 
ecuting it, the other copy garbles 
up the message. 

An intriguing challenge, at this point, 
is to locate and disable the imposter— 
the marauding mock monitor— before it 
brings down the system altogether. My 
record of two successes in five trys is 
more impressive than it sounds. 

The possibility of numerous heirarchy 
violations exists under TSAR because, 
in the absence of protectable memory 
regions (ROM doesn't count here), any 
executing program is considered the 
equal of any other. This permits a lowly 
user program, intentionally or other- 
wise, to plunder page twenty-three and 
wound or altogether destroy beloved 
TSAR. He may even manage to wrest 
control of the system, gaining thereby a 
sort of immortality, by preventing the 
changing of INDEX or by disabling all 
competition. The opportunities for such 
exotic malfunctioning are vast, but they 
are easy to avoid and the interest they 
contribute far outweighs whatever minor 
annoyance they might occasionally pro- 
duce. In fact, they can be a source of 
very interesting diagnostic oppor- 
tunities. For instance, imagine trying to 
reestablish control in a situalion where 
monitor monitors monitor. 

RTI 

As I mentioned earlier, neither the 
design nor the operation of TSAR is over- 



ly complicated. In spite of the enormous 
increase in capability that TSAR brings 
to KIM, the system is really quite simple 
to bring up and to operate. In fact, ex- 
cept for some flickering of the display, 
the monitor behaves as if it were in 
charge, rather than operating under the 
supervision of TSAR. Moreover, I have 
found that any apparent malfunctioning 
of TSAR could eventually be traced to 
carelessness on my part— in running a 
flawed program or in failing to initialize 
a pointer-stack combination properly. 

I assume that this system is easily 
adapted for use on other 6502 com- 
puters, and I would like to hear from 
anyone who brings it up on an AIM, SYM, 
or other 6502 machine, or who finds in- 
teresting, useful, or entertaining appli- 
cations for it. How about a memory map- 
ped display routine providing current in- 
formation regarding the system status, 
like: number of currently enabled pro- 
grams, disabled (i.e. available for use) 
INDEX values, percentage of running 
time alloted to each enabled program, 
maximum stack depth attained by each 
program (could head off disasters). Of 
course, this program would be on the 
queue and would be reporting on itself 
as well as on the others. With all that va- 
cant ROM space from 1A96 to 1BF9, I 
wish I knew a way to hide TSAR up there, 
out of danger from peasant programs 
and proletarian programmers, but ready 
to take command of a timesharing 
system when summoned. 



T.D.O. 
TAPE DATA QUERY 



PET-8K 



SOL-IIA 



TRS-80-LEVEL II 



* FILE MANAGEMENT SYSTEM 

—Utilizes Dual Audio Cassette Recorders 

* INTERACTIVE QUERY LANGUAGE 

—English-Like Commands 
-Powerful Info Retrieval Capability 

* COMPUTERIZED BUSINESS & PERSONAL RECORDS 

—Customize Your Own File Structures 

—Create & Maintain Data Files 

—No Programming Experience Required 

* IMPLEMENTED IN BASIC 

T.D.Q. CASSETTE WITH MANUAL & REF. CARD $50.00 

The Following Pre-Defined T.D.Q. File Structures 
Are Available To Solve Your Data Processing Needs: 

INVENTORY CONTROL $35.00 

ACCOUNTS RECEIVABLE $35.00 

ACCOUNTS PAYABLE $35.00 

ORDER PROCESSING $35.00 

CUSTOMER DIRECTORY $25.00 

APPOINTMENT SCHEDULING $25.00 

Each With Cassette And Manual 

Send Self-Addressed Stamped Envelope For 

Complete Software Catalogue. 

Send Check Or Money-Order To: 

H. GELLER COMPUTER SYSTEMS 

DEPT. M, P.O. BOX 350 

NEW YORK, NY 10040 

(New York Residents Add Applicable Sales Tax) 



NOW AVAILABLE 
For SOL-IIA and PET-8K 

GENERAL PACK 1 $11.00 

(Checkbook Balancer, Tic Tac Toe, Metric Conversion) 

GENERAL PACK 2 $19.00 

(Space Patrol, Biorhythm, Battlestar, One-Armed Bandit) 



FINANCIAL PACK 1 

(Loans,, Depreciation, Investments) 



$13.00 



FINANCIAL PACK 2 $13.00 

(Mortgage & Loan Amortization, Future Projections, 
Risk A.nalysis) 

STATISTICS PACK 1 $19.00 

(Mean & Deviation, Distribution, Linear Correlation & 
Regression, Contingency Table Analysis) 

GAME PACK 1 $20.00 

(Basketball, Object Removal, Bowling, Darts, Gopher) 



GAME PACK 2 - (children - educational) 
(Arithmetic God, Addition Dice, Travel) 



$13.00 



For the KIM-1 
PCROS - A Real-Time Operating System in the $50.00 
IK KIM RAM 

Includes: Assembly listing; Cassette with user's 
manual; Schematic for relay control board 




inc. 



BOX 1 20 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 

THE HDE MINI-DISK SYSTEM 




VERSIONS 

KIM 

TIM 

AIM 65 -4th Qtr. '79 

SYM - 1 st Qtr, '80 



SINGLE DRIVE 
DUAL DRIVE 



$ 795.00 
$1195.00 



Complete with all hardware. 
Interconnectingcables, FODS, 
text editor and user and instal- 
lation manuals. 



The HDE DM81 6-MD1 Mini Disk System is the per- 
ipheral you have been waiting for. No longer bounded 
by long and unreliable cassette saves and loads, your 
computer becomes a sophisticated system for program 
development or general purpose use. With the HDE 
Mini-Disk you load and save programs in seconds, not 
minutes or hours. And, since all transfers to and from 
the Mini-Disk are verified for accuracy, the data will be 
there when you need it. 

The HDE DM81 6-MD1 Mini-Disk has been "systems 1 ' 
engineered to provide a complete and integrated capa- 
bility. Software and hardware have been built as a team 
using the most reliable components available. The sys- 
tems software includes the acclaimed and proven 
HDE Fiie Oriented Disk System and Text EDitor, requir- 
ing only 8K for the operating software and overlay area. 
Systems expanding programs available include the 



two-pass HDE assembler, the Text Output Processing 
System and Dynamic Debugging Tool. Hardware in- 
cludes a Western Digital 1771 based controller in a 
state-of-the-art 4V 2 x 6V2" card size, Shugart SA 400 drive 
and the Alpha power supply. 

The storage media for the DM81 6-MD1 is the stan- 
dard, soft sectored SYi" mini diskette readily available 
at most computer stores, and HDE has designed the 
system so that the diskettes rotate only during disk 
transactions, favorably extending media life. A disk 
formatter routine included with the system, formats the 
diskettes, verifies media integrity by a comprehensive 
R/W test and checks drive RPM. Additional utilities 
provide ascending or descending alpha numeric sort. 
disk packing, text output formatting, file renaming, 
file addressing and other capabilities. 



HDE PRODUCTS. BUILT TO BE USED WITH CONFIDENCE. 
AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS ARESCO 

Box 523 Box 1712 P.O. Box 43 

Medina, Ohio 44256 Auburn, Ala. 36830 Audubon, Pa, 19407 

216-725-4560 300-633-8724 215-631-9052 



LONG ISLAND 

COMPUTER GENERAL STORE 

103 Atlantic Avenue 

Lynbrook, NY. 11563 

516-887-1500 



LONE STAR ELECTRONICS 

Box 488 

Manchaca, Texas 78652 

612-282-3570 



Interfacing the CI-812 to the KIM 



If you want to add I/O capabilities to your KIM, then 
consider the CI-812 I/O board and its abilities. 



Jim Dennis 

2305 Pinecrest 

Nacogdoches, TX 75962 



j 



The Percom CI-812 I/O board contains 
a full-duplex data terminal interface 
(RS-232) and a cassette interface that 
can load and dump data at rates up to 
2400 baud. The CI-812 comes with 8080 
software and is useless to 6502 owners, 
as is. I have interfaced a CI-812 to a 
KIMSI 6502 to S-100 motherboard, and I 
have written software that loads and 
dumps to the CI-812 from a KIM. 

There are several reasons why I 
wanted to add this board to my I/O 
library. First, under the right conditions, 
data transfer can take place very quickly 
compared to the standard 10 cps of the 
KIM, and the rates are easily controlled 
in the software. 

Second, if the user is interested in 
building a terminal to communicate with 
a big computer or with another small 
computer via a modem, all that is need- 
ed additionally is a modem ($125 for a 
Pennywhistle), a TVT-6 ($35), and a video 
monitor ($150), or a converted black and 
white TV, to turn the KIM into a full- 
fledged intelligent terminal. 

Third, data received from magnetic 
tape is self-clocked with a signal ex- 
tracted from the data. Speed variations 
in the tape drive and baud rate changes 
are thereby eliminated as sources of er- 
ror. 

The KIMSI generates S-100 bus 
signals and the decode enable from the 
signals on the expansion connector of 
the KIM. S-100 signals of the bus master 
type used by the CI-812, in addition to 
the tri-stated address lines and the DO 
and Dl lines, include PWR, PDBIN, SINP, 
and SOUT. PWR is an active low signal 
denoting stable data on the DO lines, 
PDBIN is an active high signal that 



enables the Dl lines, while SINP and 
SOUT are active high signals that in- 
dicate the addressing of an I/O device. 

The CI-812 does not directly interface 
with the KIMSI because of timing pro- 
blems associated with SINP, SOUT, and 
the DO buffer enable. Also, the 2 MHz 
clock pulse required by the CI-812 is not 
generated by the KIMSI. The procedure 
for overcoming these problems is: 

1. Jumper the 1 MHz enable from 
finger 62 of the KiMSl to finger 
49 of the KIMSI. 

2. Bypass the first divide-by-two 
stage of the clock by bending up 
pin 5 IC9 of the CI-812 and jump- 
ering pin 5 IC12 to pin 8 IC3. 

3. Create a new signal, which I call 
SNOUT, that goes high whenever 
an I/O device is addressed. SNOUT 
is available at pin 10 IC9 of the 
KIMSI. Jumper it to finger 96 of the 
KIMSI. 

4. Bypass the OR-INVERT of SINP 
and SOUT by the CI-812 by jump- 
ering finger 96 of the KIMSI to pin 
IC20 of the CI-812 and by bending 
up pin 4 IC2of the CI-812. 

5. Permanently enable the DO buffers 
by jumpering pin 12 IC14 of the 
CI-812. 



This completes the hardware revision 
of the KIMSI and the CI-812. The CI-812 
outputs bi-phase (Manchester) code con- 
sisting of bursts of 2400 Hz square 
waves for a logic one and 1200 Hz 
square waves for a logic zero. Impress- 
ing unfiltered square waves on magnetic 
tape and then reading them involves a 



double differentiation process that can 
cause errors at high baud rates. For this 
reason, computer grade tape and baud 
rates of not more than 300 are recom- 
mended. Three hundred baud is known 
as the Kansas City standard. 

The program shown is a checksum 
loader-dump routine which I have written 
for the KIM-PERCOM-KIMSI combina- 
tion.The KIMSI uses memory mapping to 
address I/O devices, reserving address 
range FOXX for I/O devices. 

My PERCOM board is addressed at 
F0EX; X = 1, 2. The program follows the 
format of the KIM cassette loader and 
dump, loading block headers and EOT's 
in Hex and all else in ASCII. No SYN 
characters are necessary. When a pro- 
gram has been dumped, the monitor 
takes over at address 0000. If a program 
has loaded correctly, the address dis- 
play will light at 0000 also. If an illegal 
hex character has been encountered, 
meaning that the tape has been read in- 
correctly, the display will light at the 
starting address of the loader. 

For example, if two ASCII characters 
are decoded to a J6, which is supposed 
to be a hex byte, then the tape has been 
read incorrectly. If a checksum error oc- 
curs, then the display will light with the 
calculated checksum high or low byte 
repeated twice in the address display. 

The ASCII — hex checksum load and 
dump routine for the KIM uses the 
following KIM monitor subroutines: VEB, 
INTVEB, CHKT, INCVEB and PACKT. 
The CI-812 is addressed at F0E1 and 
F0E2 in the program listing. The ASCII 
— hex dump starts at 0000 and loads at 
0070. To change to another location, 
modify locations denoted by "*" to 
reference the new page. 
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008C FO 


02 




BEO GETBYT 


YES, PICK UP NEXT 2 CHARAC. 










008E DO 


F7 




BNE RDY? 


NO, LOOK AGAIN 


SUBROUTINE 


FUNCTION 




0090 20 


23 01* 


r GETBYT 


JSR ASCIIHEX 


GET NEXT 2 CHAR. AND CONVERT 










0093 CD 


F9 17 




CMP ID 


IS IT THE RIGHT BLOCK? 


OUTCHR 




DUMPS ASCII CHR ON TAPE 


0096 FO 


02 




BEQ GO 


YES, GET FIRST CHARACTER 


OUTBYTC 




DUMPS 1HEX BYTE AS 2 ASCII CHR AND 


0098 DO 


F6 




BNE GETBYT 


NO, KEEP LOOKING FOR ID 






INCREMENTS CHKSUM 


009A 29 


23 01* 


GO 


JSR ASCIIHEX 


GET BYTE AND CONVERT TO HEX 


OUTBYT 




SAME AS ABOVE 


BUT DOES NOT INC CHKSUM 


009 D 20 


4C 19 




JSR CHKSUM 


INC CHECKSUM 


LDASCII 




LOADS 1 ASCII 


CHR 


OOAO 8D ED 17 




STA VEB + 1 


STORE CHKSUM LOW 


HEXTOAS 




CONVERTS 1/2 HEX BYTE TO ASCII 


00A3 20 


23 01* 




JSR ASCIIHEX 












00A6 20 


4C 19 




JSR CHKSUM 












0OA9 8D 


EE 17 




STA VEB + 2 


STORE CHKSUM HIGH 










OOAC A2 02 


G02 


LDXIM 02 


LDX CHAR. COUNTER 










OOAE 20 


32 01* 


G01 


JSR LDASCII 


GET ASCII CHAR. 


OOOO A9 AD 




LDAIM AD 


INITIALIZE VEB AS DUMP 


00B1 C9 


2F 




CMPIM EOT 


IS IT EOT? 


0002 8D EC 


17 


STA VEB 




00B3 FO 


17 




BEQ CONT 


YES, FINISH 


0005 20 32 


19 


JSR INTVEB 


INITIALIZE VEB 


00B5 20 oo :la 




JSR PACKT 


NO, PACK ASCII AS HEX 


0008 A9 2A 




LDAIM ASCII 


■*' ASCII SYNC 


00B8 FO 


03 




BEQ VALASC 


BEQ VALID ASCII CHAR. 


OOOA 20 56 00* 


JSR OUTCHR 


OUTPUT BLOCK HEADER 


OOBA 4C 4F ].C 




JMP START 


ERROR EXIT 


OOOD AD F9 


17 


LDA ID 




OOBD CA 




VALASC 


DEX 


DEC. CHAR. COUNTER 


0010 20 03 01* 


JSR OUTBYT 


OUTPUT ID WITHOUT CHKS 


OOBE DO 


EE 




BNE G01 


GET 2ND CHAR, 


0013 AD F5 


17 


LDA SAL 


STARTING ADDRESS LOW 


00 CO 20 


4C 19 




JSR CHKSUM 


INC CHKSUM 


0016 20 00 


01* 


JSR OUTBYTC 


OUTPUT WITH CHKSUM 


00C3 4C 


EC 17 




JMP VEB 


MOVE SA TO VEB 


0019 AD F6 


17 


LDA SAH 


STARTING ADDRESS HIGH 


00C6 20 


EA 19 




JSR INCVEB 


INC. CURRENT ADD. 


00 1C 20 00 


01* 


JSR OUTBYTC 




00C9 4C AC 00* 




JMP G02 


LOOP BAK FOR MORE CHAR. 


001F AD ED 


17 


STRT LDA VEB + 1 


GET CURRENT ADD. LOW 


OOCC 20 23 01* 


C0N7 


JSR ASCIIHEX 


GET CHKSUM 


0022 CD F7 


17 


CMP EAL 


CMP WITH ENDING ADD. L 


OOCF FO 03 




BEQ CKOK? 


IT IT VALID HEX? 


0025 AD EE 


17 


LDA VEB + 2 


GET CURRENT ADD. HIGH 


00D1 4C 


2B 19 




JMP ERROREX 


NO, EXIT 


0028 ED F8 


17 


SBC EAH 


SBC ENDING ADD. HIGH 


00D4 CD E7 17 


CKOK? 


CMP CHKSUML 


YES, COMPARE WITH CALC. CHKS 


002B 90 1A 




BCC DUMP2 


DO THEY AGREE? 


00 D7 FO 


03 




BEQ OK 


CHKSUM LOW AGREES 


002D A9 2F 




LDA ASCII'/ 


'YES, LDA ASCII SLASH 


00D9 4C 


2B 19 


BADNEWSJMP ERROREX 


CHKSUM LOW DOES NOT AGREE 


002 F 20 56 


00' 


JSR OUTCHR 


OUTPUT EOT 


00 DC 20 


23 01* 


OK 


JSR ASCIIHEX 


GET CHKSUM HIGH 


0032 AD E7 


17 


LDA CHKSUML 


GET CHKSUM LOW 


OODF CD 


E8 17 




CMP CHKSUMH 


COMPARE WITH CALC. CHKSUMH 


0035 20 03 


01* 


JSR OUTBYT 


OUTPUT 


00E2 DO 


F5 




BNE BADNEWS 


CHKSUM HIGH DOES NOT AGREE 


0038 AD E8 


17 


LDA CHKSUMH 


GET CHKSUM HIGH 


00E4 A9 


00 




LDAIM 00 




003B 20 03 01* 


JSR OUTBYT 


OUTPUT 


O0E6 4C 


2B 19 




JMP NORMEX 


CHKSUM AGREES 


00 3E A9 00 




LDA 00 




0100 20 


4C 19 




JSR CHKSUM 


CALC. CHKSUM 


0040 85 FA 




STA2 POINTL 




0103 A8 






TAY 


SAVE BYTE 


0042 85 FB 




STAZ POINTH 




0104 4A 






LSRA 




0044 4C 4F 


IC 


JMP START 


ALL OK, RETURN TO MON 


0105 4A 






LSRA 




0047 20 EC 


17 


DUMP2 OSR VEB 


PICK UP NEXT BYTE 


0106 4A 






LSRA 




004A 20 00 01* 


JSR OUTBYTC 


OUTPUT 


0107 4A 






LSRA 


SHIFT OUT LSB 


004D 20 EA 


19 


JSR INCVEB 


INC CURRENT ADDRESS 


0108 20 


13 01 


* 


JSR HEXTOAS 


CONVERT TO ASCII 


0050 4C IF 00* 


4C STRT 




010B 98 






TYA 


RESTORE BYTE 


0053 EA 




NOP 




010C 20 


13 01 


* 


JSR HEXTOAS 


OUTPUT MSB AS ASCII 


0054 EA 




NOP 




010F 98 






TYA 


RESTORE BYTE 


0055 EA 




NOP 




0110 60 






RTS 




0056 48 




PHA 


SAVE BYTE 


0111 EA 






NOP 




0057 A9 03 




LDAIM 03 


LDA SELECT CODE 


0112 EA 






NOP 




0059 8D EC 


FO 


STA CAS-SEL 


SELECT CASSETTE MODE 


0113 29 


OF 




ANDIM OF 


MASK MSB 


005C AD El 


FO 


LDA UARTOUT 


READ UART TO CLEAR 


0115 C9 


OA 




CMPIM OA 




005F AD EO 


FO 


CLlAR LDA STATUS 


READ STATUS 


0117 18 






CLC 




0062 29 80 




AN DIM 80 


MASK STATUS BIT 


0118 30 


02 




BPL CONV 




0064 FO F9 




BEQ CLEAR 


LOOP IF STILL TRANSMIT 


011A 69 


07 




ADCIM 07 




0066 68 




PHA 


RESTORE BYTE 


011C 69 


30 


CONV 


ADCIM 30 


CONVERT TO ASCII 


0067 8D El 


FO 


STA CASOUT 


OUTPUT TO UART 


011E 20 


56 00* 




JSR OUTCHR 


OUTPUT AS ASCII 


006A 60 




RTS 




0121 60 






RTS 




006B EA 




NOP 




0122 EA 






NOP 




006C EA 




NOP 




0123 20 


32 o:i* 




JSR LDASCII 


READS UART 


006D EA 




NOP 




0126 20 00 1A 




JSR PACKT 


PACKS 2 ASCII CHAR. 


006E EA 




NOP 




0129 20 


32 01* 




JSR LDASCII 


AS 1 HEX BYTE 


006F EA 




NOP 


LOADER BEGINS HERE 


012C 20 


00 1A 




JSR PACKT 




0070 A9 8D 




LDAIM 8D 


SET UP VEB AS LOADER 


012F 60 






RTS 




0072 8D EC 


17 


STA VEB 




0130 EA 






NOP 




0075 20 32 


19 


JSR INTVEB 


INITIALIZE VEB AS LOADER 


U131 EA 






NOP 




U078 A9 4C 




LDAIM 4C 




0132 A9 


01 




LDAIM 01 


CODE FOR CASSETTE LOAD 


007A 8D EF 


17 


STA VEB +3 




0134 8D EO FO 




STA UART 


OUTPUT TO UART 


007D A9 C6 


* 


LDAIM C6 




0137 AD El FO 


LOOP 


LDA UARTOUT 


CLEAR UART 


007F 8D FO 


17 


STA VEB + 4 




013A AD EO FO 




LDA FLAG 


READ STATUS 


0082 A9 00 


* 


LDAIM 00 


LOADER RETURNS FROM VEB 


013D 29 


40 




ANDIM 40 


MASK STATUS BIT 


0084 8D Fl 


17 


STA VEB + 5 


WITH JMP TO LOC. 00C6 


013F FO 


F9 




BEQ LOOP 


IF NOT READY, WAIT 


0087 20 32 01* 


RDY? JSR LDASCII 


LOOK FOR BLOCK HEADER 


0141 AD El FC 




LDA DATA 


LOAD ASCII CHAR. 


008A C9 2A 




CMPIM '*' 


IS IT A SYNC? 


0144 60 






RTS 


RETURN 


18:44 
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AMPERSORT 

Alan G. Hill 

12092 Deerhom Drive 

Cincinnati, OH 45240 

I apologize to MICRO readers for the 
errors in the listing of AMPERSORT 
published in MICRO 14:39. The problem 
was a result of including the first five 
pages of an earlier version with the last 
two pages of a later version to which 
lines 3940 thru 3946 were added. This 
caused, as many readers discovered, the 
object address of some of the preceding 
code to be incorrect. Attached is a 
listing of the correct object code. 
Anyone wishing to receive an improved 
version on cassette may do so by sen- 
ding $5.00 to me at the above address. 

Several people have asked if AMPER- 
SORT can be used with Applesoft in 
RAM rather than ROM. With the follow- 
ing changes it can: 



Routine 



ROM Addr. RAM Addr. 



FRMNUM $DD67 $156A 

GETADR $E752 $1F49 

GETBYT $E6F8 $1EEF 

SNER $DEC9 $16CC 

The Applesoft RAM BASIC program 
must also include the following 
statements that must be executed prior 
to the first '&SRT command: 

POKE 2142,244: POKE 2143,3 

The specific changes to AMPERSORT 
for Applesoft RAM are: 



Address 



ROM Ver. RAM Ver. 



$5269 


67 


6A 


$526A 


DD 


15 


$526C 


52 


49 


$526D 


E7 


1F 


$527A 


67 


6A 


$527B 


DD 


15 


$527D 


52 


49 


$527E 


E7 


1F 


$52A9 


C9 


CC 


$52AA 


DE 


16 


$52 B4 


F8 


EF 


$52 B5 


E6 


1E 


$52C0 


F8 


EF 


$52C1 


E6 


1E- 



\ 



Microbes 



Note on Charles Husband' s 

Speech Processor for tiie PET 

MipRd 16:41 

Readers interested in obtaining addi- 
tional fnformation about the Data— Boy 
Speech Processor should co n tact Jim 
Anderson at: 

MIMiC Electronics 

Box 92 1 y 

Acton, MA 01 720 



$5200 


♦ 5589. .";■ f,V : "■■•■:'. 


53G0- 


82 


55 


30 0C Bl B8 Bl DC 








53CS- 


BO 


14 


20 CI 54 4C 05 54 


5200- 


48 


20 E6 54 68 A2 00 DD 


53B0- 


Bl 


D8 


Bl BC 90 2F F0 19 


5208- 


2C 


55 DO 46 20 Bl 00 EB 


53D8- 


20 


CI 


54 4C 05 54 DO 25 


5210- 


EO 


05 DO F3 A2 00 FO 03 


53E0- 


C8 


C4 


EF FO 06 C4 FO FO 


5218- 


20 


Bl 00 G9 2C FO <0ft 9B 


53E8- 


16 


90 


OF C4F0 90 E9 FO 


5220- 


72 


55 ES E0 10 B0 Ft FO 


53F0- 


0E 


C8 


C4 EF FO 09 C4 FO 


5228- 


29 


CA BB 72 55 C9 24 F0 


53F8- 


FO 


BE 


98 B5 E7 BO CO E8 


5230- 


24 


C9 25 BO 15 A2 01 A9 


54 00- 


EC 


88 


55 BO B8 E6 ED DO 


5238^ 


30 


IB 72 55 9B 72 55 CA 


5408- 


02 


E6 


EE A5 EB "C5 EO A5 


5240- 


10 


F5 A9 02 85 Eft Af 01 


5410- 


EE 


E5 


El 90 14 E6 DE BO 


5248- 


DO 


19 A9 05 85 EC A9 02 


5418- 


02 


E6 


BF A5 BE C5 B4 AS 


5250- 


DO 


11 4C A5 52 A9 80 OB 


5420- 


DF 


E5 


B5 90 07 20 09 55 


5258- 


73 


55 8B 73 55 &9 03 85 


5428- 


60 


4C 


8E 53 4C 59 53 18 


5260- 


EC 


A9 00 85 Fl 20 ftt 00 


5430- 


: '6A 


BO 


03 4C 6B 54 AO 01 


5268- 


20 


67 BD 20 52 E7 A5 SO 


5438- 


Bl 


D6 


Bl BA 88 Bl B6 Fl 


5270- 


85 


DE A5 51 85 m 2$ M 


5440- 


BA 


90 


22 Bl B6 51 BA 30 


5278- 


00 


20 67 DD 20 52 E7 W 


5448- 


BC 


C8 


Bl BA 48 88 Bl BA 


5280- 


50 


85 D4 18 69 01 85 EO 


5450- 


48 


Bl 


D6 91 BA C8 Bl D6 


5288- 


A5 


51 85 D5 69 00 85 El 


5458- 


'\9# 


BA 


88 68 91 B6 C8 68 


5290- 


A5 


Fl DO 59 FO 15 A2 00 


5460- 


91 


U 


4C 05 54 Bl B6 51 


5298- 


ED 


"31,:55-o#^:8a;;2o^eW:^f:b^:. 


. -:$m$~- 


BA 


M 


BE iO 98 AO 60 Bl 


52Afe 


E8 


E0 17 DO F3 SO 09 §5 


5470- 


B6 


m 


BA 90 OB FO 02 BO 


52A8- 


4£ 


C? BE A0 00 8C &9 55 


54?8- 


IB 


C8 


CO 05 BO Fl FO 3E 


52B0- 


20 


Bl 00 20 F8 E6 CA AC 


54»- 


AO 


01 


Bl M Zl BA 11 BA 


52 Bi- 


89 


55 96 E2 20 Bl 00^ 20 


' ' : - : %4m~ 


30 


3ft 


88 Bl BA BO 2F C8 


52 GO - 


FB 


E6 AC k89 55 M^'& ■»,-,■■ 


5490- 


■:;bi: 


B6 


10 16 30 28 AO 01 


52C8- 


Bl 


O0 90 B9 C9 44 F<i 64 


S498^ 


Bl 


m 


31 BA 11 B6 30 IE 


52B0- 


m 


FF -30; 02 A9 ■Aw#*,&&:± 


:: ----MM~ 


88 


■fl 


B6 B$ 05 C8 Bi BA 


52D8H- 


55 


GB 8e:-3f^55-;S^Si' ;: rt:; 


-■.Mm^ 


10 


;m 


AO $4 Bl B6 48 88 


52E0- 


C9 


■2?-VFft:^&^ 


:--5*B0"" 


m 


= FK 


G8 Bl BA 91 B6 68 


52ET8t 


DO 


B'-8r^li5S::i|:i'i|-:^ : '- 


! -.5*B8- 


91 


BA 


CO 04 BO F4 4C 05 


52F0- 


BO 


B3 vAO--00/%i/-iB: : 4B^7t; : ". 


54C0- 


■■■54 : - 


A© 


00 Bl B6 48 C8 A5 


52F8- 


55 


BO 08 ^':fii®:.'Ei-?i^; 


: : ' ; :--54C8-- 


B8 


91 


BA CS A5 B9 91 BA 


5300- 


55 


' FO 2B 1 8 AO ; W->&1?£i&-0 : - 


: - ; ":"5^B0- 


A5 


Bb 


91 B6 85 B9 88 A5 


5308- 


65 


6B 48 CSB1 .-it- 65 6€ 


-■■■ ■'-' 54B8- 


bc; 


91 


B6 85 D8 88 Bl BA 


5£tb- 


85 


6C 68 85 6B C5 6B A? 


54E0- 


91 


B6 


68 91 BA 60 A2 00 


5318- 


6£: 


es 6e bo m^&^m :• - 


-;--54E8-t 


B5 


B0 


9B 48 55 E8 EO 22 


5320- 


A2 


02 BB 72 55 %ft SB 55 


■ ; 54F6^ 


B0 


9k 


AS 6B SB 70 55 A5 


5328- 


CA 


10 F7 4C 96 52 18 A5 


54F8r- 


6C 


m 


71 55 A2 00 B5 50 


5330- 


6B 


69 .07 .:85 :;52 i':A5 r dt .'■**:' 


5500- 


9B 


6k 


55 E8 EO 06 BO F6 


5338- 


00 


85 53 A5 BE ^ #5 ISO A5 


5508^ 


60 


A2 


00 IB 48 55 95 BO 


5340- 


BF 


85^ ■ 51.V.A5 ^C^-85 -^r'ifc^C 


y-:-mm^ 


EB 


*t 


22 BO W6 AB 70 55 


5348- 


00 


85 55 20! 63 il^ (15 5* 


;':;55i8- 


m 


m 


AB 71 55 ,85 6C A2 


5350- 


85 


M A5 51 85 67 4& ^66 


■.-,■■■5520'- 


do 


m 


6A 55 95 ^ E8 EO 


53 5 8- 


53 


18 A5 B6 6S EC li5 M 


:--- : 5528-- 


06 


m 


F6 6% 53 52 54 23 


5360- 


A5 


D7 69 00 85 B7 ''m Si 


v ; --550OS^ 


28 


■ml 


56 4t 52 49 41 42 


5363- 


Bl 


B6 85 Ba €8 ii 1 )K 85 


',';S53fe 


4C 


45 


20 20 20 20 20 4E 


5370- 


B9 


18 AS B6 65 EC 85 BA 


5540- 


M"- 


54 


20 46 4F 55 4E 44 


5378- 


A5 


B7 69 00 85 BB r8 MS 


■'■-...ssw^ 


to 


00 


00 00 00 00 00 00 


5380- 


DC 


69 otm &[m-^6$- :■■ 


y..mm~- 


00 


00 


00 00 00 00 00 00 


5388- 


00 


85 ee i:4c m i:M ^m ."«!./.■ 


;- : 5558-" 


■m<- 


00 


00 bo 00 00 00 00 


5390- 


DA 


65 EC 85 3BA A5 ]tf 69 


5560- 


00 


00 


00 00 bo bo 00 00 


5398- 


00 


85 BB A0 01 Bl W 05 


5563- 


00 


00 


00 00 oo 00 00 00 


53A0- 


DC 


ca Bi B&; ; 85. : ^M;- Fi :! /:j 


: - : -: : 55-70- 


00- 


w 


00 00 ob 00 00 00 


53 AS- 


FO 


03 4C 2F S4 ^ #vBl ? 


5578-* 


00 


00 


00 00 oo 00 bo 00 


53 BO- 


D6 


FO 52 85 EF Bl MA F^ 


5580- 


00 


00 


00 00 00 00 00 00 


SSBS- 


4c 85 fo mm M 1:2 00 


55OT- 


00 


00 
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Data Acquisition Modules 



lYtnm 



[■^"3 




•FLUID LfVtL 



3 J^o 

10 | ^ J ^ TRS-SO HO 



TRs-ao mTtxna 



display yoouLC 



The world we live in is full of variables we want to 
measure. These include weight, temperature, pressure, 
humidity, speed and fluid level. These variables are 
continuous and their values may be represented by a 
voltage. This voltage is the analog of the physical varia- 
ble. A device which converts a physical, mechanical or 
chemical quantity to a voltage is called a sensor. 

Computers do not understand voltages: They under- 
stand bits. Bits are digital signals. A device which con- 
verts voltages to bits is an analog-to-digital converter. 
Our A1M16 (Analog Input Module) is a 16 input analog- 
to-digital converter. 

The goal of Connecticut microcomputer in designing 
the DAM SYSTEMS is to produce easy to use, low cost 
data acquisition modules for small computers. As the 
line grows we will add control modules to the system. 
These acquisition and control modules will include 
digital input sensing (e.g. switches), analog input sens- 
ing (e.g. temperature, humidity), digital output control 
(e.g. lamps, motors, alarms), and analog output control 
(e.g. X-Y plotters, or oscilloscopes). 



XXX Xxxxx-xxix w ^ w wv^tt 



_J 



t 
i 
i 
i 
i 

t 

< 
i( 
t 
t 
n 

K 
I 

K 

i 
t 
t 
x 
< 
1 
i 
t 
t 
i 
i 

.1 

I 
x 
x 



Connectors 



v ^ 




The AIM 16 requires connections to its input port 
(analog inputs) and its output port (computer inter- 
face). The ICON (Input CONnector) is a 20 pin, solder 
eyelet, edge connector for connecting inputs to each of 
the AIM1 6's 1 6 channels. The OCON (Output CONnec- 
tor) is a 20 pin, solder eyelet edge connector for con- 
necting the computer's input and output ports to the 
AIM16. 

The MANMOD1 (MANifold MODule) replaces the 
ICON. It has screw terminals and barrier strips for all 1 6 
inputs for connecting pots, joysticks, voltage sources, 
etc. 

CABLE A24 (24 inch interconnect cable has an inter- 
face connector on one end and an OCON equivalent on 
the other. This cable provides connections between the 
DAM SYSTEMS computer interfaces and the AIM16 or 
XPANDR1 and between the XPANDR1 and up to eight 
AIM16s. 



ICON. 


. $ 9.95 


OCON. 


. $ 9.95 


MANMOD1 . 


. $59.95 


CABLE A24. 


. $19.95 
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Analog Input Module 




The AIM 16 is a 16 channel analog to digital converter 
designed to work with most microcomputers. The 
AIM16 is connected to the host computer through the 
computer's 8 bit input port and 8 bit output port, or 
through one of the DAM SYSTEMS special interfaces. 

The input voltage range is to 5.1 2 volts. The input 
voltage is converted to a count between and 255 (00 
and FF hex). Resolution is 20 millivolts per count. Ac- 
curacy is 0.5% ± 1 bit. Conversion time is less than 100 
microseconds per channel. All 16 channels can be 
scanned in less than 1.5 milliseconds. 

Power requirements are 12 volts DC at 60 ma. 

The POW1 is the power module for the AIM16. One 
POW1 supplies enough power for one AIM 16, one 
MANMOD1, sixteen sensors, one XPANDR1 and one 
computer interface. The POW1 comes in an American 
version (POW1a) for 1 10 VAC and in a 1 European ver- 
sion (POW1e) for 230 VAC. 



AIM16... 
POW1a.. 
POW1e.. 



$179.00 
$ 14.95M 
$ 24.95 
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XPANDR1 




The XPANDR1 allows up to eight AIM 16 modules to be 
connected to a computer at one time. The XPANDR1 is 
connected to the computer in place of the AIM 16. Up to 
eight AIM1 6 modules are then connected to each of the 
eight ports provided using a CABLE A24 for each 
module. Power for the XPANDR1 is derived from the 
AIM16 connected to the first port. 

XPANDR1 . . . $59.95 
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TEMPSENS 




==* 



This module provides two temperature probes for use 
by the AIM16. This module should be used with the 
MANMOD1 for ease of hookup. The MANMOD1 will 
support up to 16 probes (eight TEMPSENS modules). 
Resolution for each probe is 1°F. 

TEMPSENS2P1 (-10°F to 120°F) . . . $49.95 |( 



Computer Interfaces 
and Sets 




For your convenience the AIM16 comes as part of a 
number of sets. The minimum configuration for a usable 
system is the AIM16 Starter Set 1. This set includes 
one AIM16, one POW1, one ICON and one OCON. The 
AIM16 Starter Set 2 includes a MANMOD1 in place of 
the ICON. Both of these sets require that you have a 
hardware knowledge of your computer and of computer 
interfacing. 

For simple plug compatible systems we also offer 
computer interfaces and sets for several home com- 
puters. 

The PETMOD plugs into the back of the Commodore 
PET computer and provides two PET IEEE ports, one 
user port and one DAM SYSTEMS port The PETMOD is 
connected to the AIM1 6 or XPANDR1 with CABLE A24. 
The PETSET1 includes one PETMOD, one CABLE A24, 
one AIM16, one POW1 and one MANMOD1. To read 
and display a single AIM16 channel (N) using the 
PETSET1 the BASIC statements 

P0KE594 26,N:P0KE594 26 r 255 :X=PEEM 59471 KPR INT" CHANNEL "N"=-X 

are all that is needed. 

The KIMMOD plugs into the COMMODORE KIM ap- 
plications connector and provides one application con- 
nector and one DAM SYSTEM'S port. The KIMMOD is 
connected to the AIM 16 or XPANDR1 with CABLE A24. 
Assembly and machine language programs for reading 
and displaying data are included. The KIMSET1 in- 
cludes one KIMMOD, one CABLE A24, one AIM 16, one 
POW1 and one MANMOD 1 . 

All sets come in American and European versions. 

AIM16StarterSet1a(110VAC)... $189.00 
AIM 1 6 Starter Set 1e (230 VAC)... $199.00 
AIM 16 Starter Set 2a (110 VAC)... $259.00 
AIM1 6 Starter Set 2e (230 VAC) . . . $269.00 

PETMOD ... $ 49.95 
KIMMOD ... $ 39.95 
PETSETIa... $295.00 
PETSETIe... $305.00 
KIMSETIa... $285.00 
KIMSETIe... $295.00 
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Our Guarantee of Satisfaction 



Our customers are our most important asset. We want 
you to be pleased with whatever you purchase from us. 
We strive to offer top quality products at reasonable 
prices. We believe you should see an itern before you 
spend your hard earned cash for it. 

Ask for a demonstration at your local computer store 
so you can be sure our products perform as you want 
them to perform. Your dealer is a valued source of infor- 
mation and advice. 

If you cannot see our products in advance, and order 
direct from us, we offer a money back guarantee. If our 
products don't perform as you expect, return the mer- 
chandise to us within 30 days, in its original condition, 
and we will refund the purchase price. 

Our standard warranty for all our products is 90 days. 
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Coming Soon 



TEMPSENS-2P with other temperature ranges. Inter- 
faces for TRS-80, APPLE, AIM65. Light sensors. Out- 
put modules. Contact us for price and availability. 




Give your potential customers a reason for buying your 
computers. We offer excellent discounts to legitimate 
dealers. Contact us for our dealer pack. 
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Order Form 



CONNECTICUT microCOMPUTER , Inc. 

150 POCONO ROAD 
BROOKFIELD, CONNECTICUT 06804 

TEL: (203) 775-9659 TWX: 710-456-0052 



QUANTITY 


DESCRIPTION 


PRICE 


TOTAL 


































































































SUBTOTAL 




Handling and shipping — add per order 


$3.00 


Foreign orders add 10% for AIR postage 




Connecticut residents add 7% sales tax 




TOTAL ENCLOSED 





COMPANY. 
ADDRESS _ 



CITY 

STATE __^__ 

VISA O M/C O £ xpiration date _ 
Card number 



_21P_ 
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PET Printer Adapter 




The CmC ADA 1200 drives an RS-232 printer from the 
PET IEEE-488 bus. Now, the PET owner can obtain 
hard copy listings and can type letters, manuscripts, 
mailing labels, tables of data, pictures, invoices, 
graphs, checks, needlepoint patterns, etc., using 
RS-232 standard printer or terminal. 

A cassette tape is included with software for plots, 
formatting tables and screen dumps. The ADA1200 
sells for $169.00 and includes case, power supply and 
cable. 



Order direct or contact your local computer store. 

VISA AND M/C ACCEPTED — SEND ACCOUNT NUMBER, EXPIRATION DATE AND SIGN ORDER. 
ADD J 3 PEH ORDER FOR SHIPPING A HANDLING — FOREIGN ORDERS ADD 10% FOR AIR POSTAGE 

CONNECTICUT microCOMPUTER , Inc. 

750 POCONO ROAD 
BROOKFIELD, CONNECTICUT 06804 

TEL: (203) 775-9659 TWX: 710-456-0052 



softside 



305 Riv«n;ide Drive New York. N Y^i0025 





St program. 



1 GRAPHICS PAC 2 Quadruple your PET's graphic resolution. Why be 

New Version stuck with the PET's cumbersome 25 x 40 1000 point 

display. With Graphics Pac you can directly control 
(set and cleir) 4000 points on screen. It's great for graphing, plotting, and gaining. Graphics 
Pac allows you to plot in any combination of two modes: 4 Quadrant graphing with (0.0) center 
screen, and Standard graphing with (0,0) plotted in the upper left hand corner. Complete docu- 
mentation shows how you can merge this useful routine with any of your own programs with- 
out retyping either one! All this on a high quality Microsette for only $9.95. 

2 ASSEMBLER 2001 A full featured assembler for your PET microcompu- 

ter that follows the standard set of 6503 mnemonics. 
,.,... . __,^ „ Now you can take full advantage of the computing 

abilities of your PET. Store and load via tape, run through the SYS or USR functions. List and 
edit too with this powerful assembler. No other commercial PETassembler gives you all these 
features ph; s the ability to look at the PETS secret Basic ROMs ail in one program. This valu- 
able program is offered at $15.95 

3B"KE An exciting new simulation that puts you in 

charge of a bicycle manufacturing empire. Juggle 
inflation, breakdowns, seasonal sales variations, 
inventory 'A'orkers. prices machines, and ad campaigns to keep your enterprise in the 
black. Bike is dangerously addictive Once you start a game you will not want to stop. To 
allow you to lake short rest breaks. Bike lets you store the data from your game on a tape 
so you can continue where you left off next time you wish to play. Worth a million in fun 
we'll offer 3IKE at S9 95. 

4 NBALL Dynamic usage of the PET's graphics features 

when combined with the fun of the number 1 arcade 
game equals an action packed video spectacle for 
your computer Bumpers, chutes, flippers, free balls, gales, a jackpot, and a little luck 
guarantee g great game for all. $9 95 

Authors: Our royalties are unbeatable 

ttrklrtrfr MUSICAL MADDNESS th^W^rfr * 

SPECIAL add an exciting new dimension to your PET computer SOUND 

with Soundware's soundsational music box 
and somcsound software from Softside & Soundware 



fr THE SOUNDWORKS fr 

The Soul d ware music box for your PET 
comes complete with controllable volume, 
an earphone jack, a demo tape with two 
programs , an instruction book, and a one 
year warranty, this sturdy unit is enclosed 
in an attractive plastic case. Notes tell 
how to program your own sound effects. 
All this during our musical madness for 
just 29.95 

WORD FUN: Speller: fun ways to practice 
spelling ■■ Scramble * Flashcards 9.95 



^r MUSICAL SOFTWARE ^ 

ACTION PACK: Break thru +■ Target + 
Cacterpillar: non stop graphic action 9.95 
PINBALL: a video action spectacle with 
real time flippers, chutes gates, bumpers. 

tags etc 9.95 

CLASSICS: Checkers * Backgammon 
Board *Piano Player, checkers vs. com- 
puter or friend. Piano plays Minute Waltz 

MUSIC MANIA: Try to repeat a. growing 
sequence of tones. With graphics. Chal- 
lenge to the best ear 9.95 
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One magazine publishes • APPLE 
more information about 
6502 based systems, 
products and programs 
than all of the others 
combined: 



PET 
OSI 



531X35*!* 

P.O. Box 6502 
Chelmsford, MA 01824 

Are you tired of searching through 
computer magazines to find articles that 
relate to your 6502 system? MICRO 
magazine is devoted exclusively to 6502 
systems. Each month, MICRO publishes 
application notes, hardware and software 
tutorials, interfacing information and 
program descriptions with complete 
source listings. MICRO is not just fun and 
games. It is the complete reference 
source for all 6502 enthusiasts. 

You can order twelve issues of MICRO for $15.00, or for $18.00 
outside the United States, Air mail subscriptions cost $27.00 in 
Central America, $33.00 in Europe and South America, and 
$39.00 in all other countries. 

MICRO has been published regularly since October, 1977. 
Articles that appeared in the earlier issues of MICRO may be 
obtained in two bound anthologies, BEST OF MICRO Volume 1 
and the companion collection ALL OF MICRO Volume 2, both 
available at computer stores or from the magazine. 
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PET Word Processor 




This program permits composing and printing letters, 
flyers, (advertisements, manuscripts, etc., using the 
COMMODORE PET and a printer. 

Printing directives include line length, line spacing, 
left margin, centering and skip. Edit commands allow 
you to insert lines, delete lines, move lines and 
paragraphs, change strings, save files onto and load 
files from cassette (can be modified for disk), move up, 
move down, print and type. 

Added features for the 16/32K version include string 
search for editing, keyboard entry during printing for 
letter salutations, justification, multiple printing and 
more. 

A thirty page instruction manual is included. 

The CmC Word Processor Program for the 8K PET is 
$29.50. The 16/32K version is $39.50. 

Order direct or contact your local computer store. 

VISA AND M/C ACCEPTED — SEND ACCOUNT NUMBER, EXPIRATION DATE AND SIGN ORDER. 
ADD SI PER OMDER FOR SHIPPING & HANDLING — FOREIGN ORDERS ADD 10% FOR AIR POSTAGE 

CONNECTICUT microCOMPUTER , Inc. 

1S0 POCONO ROAD 
BROOKFIELD, CONNECTICUT 06804 

TEL: (203) 775-9659 TWX; 710-456-0052 



V««VrW VV«VtMLK^«^ «^«^^ 



:s: 



i 
t 
{ 
X 
t 
< 
t 

t 
t 

t 
t 

t 
i 
i 
< 
i 
t 

t 
t 
i 
t 
t 

K 



SYM - 1 Baudot TTY Interface 



Do not let the title fool you! This article has a lot more 
than just TTY stuff. Some of the techniques presented 
can be applied in many other situations. 



Richard A. Leary 
1363 Nathan Hale Drive 
Phoenixville, PA 19460 



One major shortcoming of the KIM is 
the inability to change the I/O routines 
without duplicating large parts of the 
monitor. In designing the SYM-1, 
Synertek nicely handled that shortcom- 
ing by vectoring all I/O calls through 
jumps located in SYSTEM RAM. Since 
those jumps are alterable by the user, 
almost any I/O device handler could be 
written and used with no effect on the 
rest of the monitor. That fact, coupled 
with the low cost of the Baudot 
Teletypes such as the Model 15 led me 
to develope SYM-1 I/O handlers for a 60 
word per minute Model 15. Since the 
SYM-1 allows additional ROMs to be ad- 
ded to the board I placed these routines 
in an INTEL 2716 EPROM, along with 
some other system software. More on 
that later. 

BAUDOT TTY 

First, some background on Baudot 
Teletypes: A Baudot teletype uses only 5 
data bits (unlike the 7 used by the ASCII 
Teletypes such as the Model 33) and 
thus it can only generate at most 32 uni- 
que code combinations. In order to ex- 
pand that character set, two of the 
codes have been assigned special car- 
riage shift functions much as it is done 
in a conventional typewriter. These two 
codes are called letters (LTRS) and 
figures (FIGS) and refer to the "lower- 
case" and "uppercase" character sets. 
Unlike a conventional typewriter, if a 
Baudot teletype is sent a LTRS code it 
stays in that mode until a FIGS code is 
sent. As a result of this shift method of 
operation, each key, except for some 
special ones, can send two different 
characters to another Model 15 TTY 
depending on the last shift sent. The 
receiver must of course remember what 
the last shift sent was, and print each 
succeeding key accordingly. While the 
Teletype does that remembering 
mechanically, it is obvious that a com- 
puter could easily do it electronically. 
That principle is the keystone of my soft- 
ware approach. 



I mentioned that some keys or codes 
are assigned unique meanings 
regardless of whether a LTRS or FIGS 
code was the last code sent or received. 
In most Model 15 Teletypes those 
special keys are: 

LTRS, FIGS, CAR RET (RETURN) 
LINE FEED, SPACE, NULL (BLANK) 

the net effect is that of the 32 code com- 
binations, 26 have dual meanings. As a 
result, 2x26 + 4 = 56 unique characters 
can be printed on most Model 15 
Teletypes. Note that I did not include 
LTRS and FIGS in the aboves total, as 
they are not really characters. 

It should be obvious that with only 56 
unique characters possible a 64, 96, or 
128 character ASCII set cannot be 
directly generated or printed by a 
Baudot Teletype. The approach I used is 
an indirect approach which, much like 
the LTRS and FIGS codes, uses a se- 
quence of codes to represent a 
character. 

Hardware 

A few points about Baudot Teletypes 
are appropriate before we begin. First, 
the electrical characteristics of a Model 
15 are a bit different from those of a 
Model 33 ASCII Teletype. Rather than a 
20mA current loop, a Model 15 usually 
has a 60mA current loop. Even more im- 
portantly, the supply voltage specified 
for that loop supply is usually 150v or 
more. Making a direct interface to the 
SYM-1 at those voltage anc current 
levels would be disastrous. The answer 
to that problem is to use the conven- 
tional 20mA interface of the SYM-1, but 
to couple it to the Model 15 through 
opto-isolators. The opto-isolators will 
protect the SYM-1 and allow easy con- 
version of the signals to the Model 15 
voltage in that the SYM-1 signal ground 
can remain isolated from the Model 15 
ground. Since Model 15s are notoriously 
electronically noisy, the benefit of that 
isolation is that the probability of noise 



problems in the SYM-1 is sharply reduc- 
ed. 

The schematic of the interface I used 
and the power supply I built are shown in 
Figures 1 and 2. The only critical com- 
ponents in the interface are the selector 
magnet driver transistor and the zener 
diode. The voltage rating of the tran- 
sistor must be high enough to withstand 
the open circuit loop supply voltage. The 
zener across that transistor must be 
similarity rated, as its function is to 
damp the magnet induced voltage 
spikes (positive and negative) and thus 
protect the driver transistor. The 
transformer in the power supply is not 
critical as long as it can supply 60mA 
continuously. This is a good opportunity 
to use one of the old "tube-type" power 
supply transformers that you probably 
have in you junk box. 

The total resistance value of the 
series dropping resistors in the power 
supply may have to be altered if the open 
circuit voltage of your supply is higher 
than the approximately 190v put out by 
my supply. Once the supply is built, the 
variable resistor is adjusted to give a 
60mA loop current when in the local 
mode and when no key is depressed. 

Second, not all Model 15s are the 
same. There is a wide variety in code vs 
character terms, as well as in speed. At 
least three different speed Model 15s ex- 
ist. For example, my machine was at one 
time a "weather" Teletype and had a 
special character set for most of the 
FIGS shift positions. I converted most of 
those keys and type elements to the 
"standard" communications set. I did 
leave in some characters which are not 
standard, and hence a few characters 
which I can print will have to be changed 
for a standard machine. Those 
characters are: 

>f - on standard 

+ " on standard 

- Null on standard 
The software changes required to ac- 
comodate the standard code are minor. 
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Finally, the Baudot machines have a 
few good and bad overall points which 
each user must consider before taking 
the plunge. They are; 

a . Cheap: $50 - $100 or less should 
get you a good Model 15. Insist 
on a synchronous motor rather 
than a governor regulated 
motor. 

b . Slow: 60 wpm translates to 45 
Baud (6 char/sec) which is a lit- 
tle bit faster than one half the 
speed of a Model 33. The effec- 
tive speed is even slower due to 
the necessity to send LTRS and 
FIGS shifts on an irregular 
basis. 

c . Reliable: The Model 15 is pro- 
bably 70% steel and 20% cast 
iron with a smattering of 
nonferrous materials. It just 
does not break if kept 
lubricated. (Remember— the 
Model 15 was the mainstay of 
the 24 hour per day news wire 
services.) 

d . Heavy: All that iron! 

e . Smelly: All that lubricant! 

f . Repairable: If it does break, 
parts are available and the 
manuals are complete and ex- 
plicit. I buy my parts from a 
company called Typetronics, 
Box8873, Fort Lauderdale, FL 
33310. Prices are very 
reasonable and the response is 
nearly instantaneous. 



NOTES: 

1. Resistors %w,5% 

2. Open circles with 
numbers are TTY in- 
ternal terminals. 
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Figure 1: Interface Logic 
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The most difficult part of the hardware 
interface has already been described. 
Once the interface hardware is built it is 
connected to the standard current loop 
I/O pins on the SYM-1. The only SYM-1 
hardware change required is a jumper 
change if you place the interface soft- 
ware in an EPROM and mount it on the 
SYM-1 as I did. Any of the empty ROM 
sockets can be used. Which one you use 
will depend upon whether you may have 
already installed the BASIC ROMs, the 
EDITOR/ASSEMBLER ROM, or some 
other device. I placed my 2716 in Socket 
U21 and since I had set the staring ad- 
dress of the software to $9000, I remov- 
ed two jumpers and added a new one to 
enable U21 for $9000 to $97FF. 
Regardless of what you do, the SYM 
manual gives a complete description of 
the jumpers and how to set them for 
various ROM-Address combinations. 



Figure 2: Power Supply 
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NOTE: 

1. Signal and power 

ground isolated 

Software 

Given the character set limitations of 
the Model 15, the first software design 
requirement I had to address was how to 
represent the full ASCII character set 
when printing, and how to generate that 
set when using the keyboard. Let's look 
at the output case first. 

The first decision was to convert all 
lower case alphabetic characters {a to z) 
to upper case. As the software will later 
show, that is a simple step. Moreover 
that approach does not create large pro- 
blems in application, since the need for 
lower case alphabetic characters is 
limited unless one is doing word pro- 
cessing. If that is the case I doubt that 
the Model 15 is the answer in any case. 

The second decision was to print 
those characters not normally printable 
by a Baudot Teletype as a four character 
sequence, beginning and ending with a 
period. For example, an equal sign ($3D) 
would be printed as the sequence .EQ.. 
In addition, of the 32 control codes 
which the ASCII can represent, I decided 
to recognize only RETURN, LINEFEED, 
BELL, and NULL. All others are ignored. 

The decision as to how to generate 
the codes from the keyboard was a bit 
trickier. The approach selected was to 
use BELL as an escape character. This 
simply means that once the character is 
entered, the following entry or entries 
are handled in a special way until certain 
conditions are met. While any key could 
be used, BELL has the advantage of be- 
ing seldom used as an input character 
and thus its use as an escape character 
is not a big loss. As will be seen later, it 
is not a loss at all as I can still generate 
a BELL as an ASCII character. 

In the software which I created, the se- 
quence following the escape character 
is only one or two key strokes in length. 
In fact it is only two when a LTRS must 
be entered between the BELL and the 
operative key. To better understand how 
this works, consider the following two 
examples which show both an escape 
sequence using a key, and the normal 
mode for that key: 



USER TVPE* 



BELL 



FIGS 

BELL 
LTRS 
fl 



ASCII OUTPUT TO SUPERMOH 



none 

norit 1 
none 
none 
SOH <*9i:> 



As the examples show, the BELL— (char) 
sequence generates the special 
character while the character by itself 
generates that character. The complete 
table of both input and output character 
translations is contained in the follow- 
ing table. LTRS and FIGS shifts are ob- 
viously required for some of the se- 
quences shown, but have been omitted 
for brevity. Note that while lower case 
alphabetic characters cannot now be 
generated, it would be easy to add a dou- 
ble escape feature in order to do that. 





TRANSLATION 


TABLE 




ASCII 


INPUT 


OUTPUT 


NULL 


NULL 




NULL 


SOH 


BELL 


H 




STX 


BELL 


B 




ETX 


BELL 


C 




EOT 


SELL 


L 1 




ENQ 


BELL 


E 




flCK 


BELL 


F 




BEL 


BELL 


C 


BELL 


BS 


BELL 


H 




HT 


BELL 


I 




LF 


LI NET 


r EEr- 


LINEFEED 


».-'T 


BELL 


K 




FF 


BELL 


L 




CR 


CAR RET 


CAR RET 


SO 


BELL 


N 




SI 


BELL 







OLE 


BELL 


P 




DC1 


BELL 


0. 




DC2 


BELL 


R 




DC3 


BELL 


s 




DC 4 


BELL 


T 




NMK 


BELL 


LI 




SVN 


BELL 


\j 




ETB 


BELL 


I...I 




CAN 


BELL 






EM 


BELL 


V 




SUB 


BELL 


z 




ESC 


BELL 


BELL 




FS 


BELL 


1 




GS 


BELL 


2 




RS 


BELL 


3 




US 


BELL 


4 




SPACE 


SPACE 
i 


SPACE 
i 


" 


BELL 




■ QT- 


# 


# 




# 


S 


% 




$ 


y m 


BELL 




.PC. 


& 


& 




■?; 



BELL T 

+ 



4 


4 




4 


5 


c ( 




5 


6 


6 




6 


7 


7 




"7 


8 


3 




3 


9 


9 




•^ 


i 


i 




* 


< 


BELL 


- 


.LT. 


= 


BELL 


: 


.EQ. 


> 


BELL 


+ 


-GT. 


7 


■■? 




7 


<a 


BELL 


■& 


-AT. 


fl to z 


fl to 


2 


A to 


r. 


BELL 


< 


.LB. 


v. 


BELL 


1 


.BS. 


3 


BELL 


) 


.RB. 


f 


T 




t 




BELL 


SPACE 


JJN. 


* 


BELL 


$ 


• AG. 


a to z 






fl to 


C 


BELL 


, 


-LP. 


i 

i 


BELL 


i 


.US. 


> 


BELL 


% 


-RF. 


"* 


BELL 


# 


■ TL. 


DEL 


BELL 


NULL 


.DL. 



Software Implementation 

I wish that I could report that the soft- 
ware is very compact and that it uses a 
great deal of the SUPERMON routines. 
While the software is not large, at about 
1/2K it is not small. On the other hand, 
the only SUPERMON routines I use are: 

SAVER @ $8188 

RESXAF @ $81 B8 

RESALL @ $81 C4 

DLYH @ $8AE9 



Also, I use the following RAM and 
SYSTEM I/O locations: 

CHAR @$59 used like SUPERMON 
does, 

TTYMDE @ $100 current shift 
position, 

PBDA @ $A402 I/O port, 

PBDA + 1 I/O port direction resister, 

SDBYT @ $A651 timing constant, 
As the complete listings indicate, the 
two top level routines for input and out- 
put are ASCIN and ASCOUT respective- 



ly. Each of these routines calls other 
routines to do the actual input with the 
Teletype. The functions of each routine 
and its general characteristics are sum- 
marized in the following chart. 
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ROUTINE FUNCTION 



INPUT OUTPUT ALTERS CALLS 



flSCIH 


3et- i nput for- 
full char set 
usina escape 
sequence 


nont? 




RSCII 
char in 
R 


R,F 


SHUER 
CHRIN 
RES^CRF 


flSCOUT 


print- special 


RSCII 




none 


none 


SflUER 




■sequence* or 


char- 


in 






CHROUT 




direct char- 


fl 








RESRLL 




to CHROUT for- 










RLTOUT 




output 













CHRIN 3et Key, echo 
and concert 
to RSCII 



CHROUT convert RSCII 
char- to Baudot- 
and handle 
mode changes 

TTVOUT output Baudot 
char 



HRLF delay Urns 
FULL delay 22ms 



<TTV RSCII fl,F SHUER 
Key> char in TTVMDE HRLF 
R CHRR FULL 

"T70UT 



RSCII 
char in 
R 


none 


TTVMDE 


SRUER 

TTVOUT 

RESflLL 


Baudot 
char in 
R 


<TTV 
t-ype> 


PBDR FULL 
PBDR+1 
fl,F,ft 
V, TTVMDE 


none 


none 


ft 


DLVH 


none 


none 


V 


DLVH 



Note that SDBYT must be set to $2D 
before using these routines as that 
parameter is used by DLYH as a timing 
constant. For teletypes running at 
higher speeds, either the value of SDBYT 
or the loop values used in HALF and 
FULL should be reduced. If your 
machine is running slightly faster or 
slower than mine the input or output 
may not be completely reliable. If that is 
the case, adjust SDBYT up or down as 
appropriate, until all functions work er- 
ror free. 

In my system the first routine in soft- 
ware is used to set SDBYT and alter IN- 
VEC and OUTVEC to point to the Baudot 
routines. That is not absolutely 
necessary, but does make the start-up 
process somewhat easier. All I have to 
do is enter G9000 CR on the SYM-1 
keyboard and the Baudot I/O package is 
up and running. 

One point of emphasis— as written, 
this software includes an internal echo 
for each input. The input sequence is 
echoed literally. This means that if an 
escape sequence of BELL / is entered, 
what is echoed is precisely that and not 
the .PC. which would be output if the 
SYM output a %. It would of course be 
possible to change that approach. A 
translated echo would be a bit slower 
since each escape sequence would be 
echoed as six or seven characters due to 
the .xx. sequence and the necessary 
shifts. 



Conclusion 

I hope that you find this package 
useful. If any questions need answering, 



please feel free to contact me. And if 
anyone would like the code translations 
changed I would be glad to reassemble 
the software and provide the revised pro- 



gram in listing form for the cost of the 
materials and postage. Good Luck. 



00130 


; 








9000 


29:3636 BEGIN 


JSR 


ACCESS 


Ijf _ _ Fi . c .|. E ^- , hill 


0900 


JSVM-1 


BAUDOT 


TTV I--0 


PhCKRGE 


9003 


R920 




LDA 


#*2L 


change ^..:r^ 


0000 


' 








9005 


3D '5 1 At. 




STR 


SC'BVT 


ir, S"_.! r SR: '■■-■■- 


000£i 


; F i xed 


Par am* t 


■er=. 




9003 


R9C5 




LDR 


ttRSCOUTt-256 


"256 "Oi; p. ■-....;- .^V. 


; 








900R 


3D64A6 




STR 


OUTUEl h 1 


+.■-_■ C'-jr:-"" 


0000 


NULL 


=0 






900D 


A990 




LDR 


#ASC0UT 25 o 


t r- . _ ,. 


0000 


FIGMOE 


=0 






900F 


3D65R6 




STR 


OUTUEC+2 


i -:,..,;■ i, ir _ 


0000 


BELL 


=7" 






9012 


R91D 




LDR 


aASCIH-t25R- 


156 r. -: r _-, , i- ; ,'. 


0660 


ESC 


=*1B 






9014 


3D61A6 




STR 


INUEOl 


,l> i^ .r. '. 


0000 


FIGS 


=$1B 






901? 


R990 




LDR 


#RSCIN- 25._. 


PR.' iD:""" 7' 


0000 


LTRS 


=*1F 






9019 


3D62A6 




STR 


IM'.CC+l 


;: ,^ , , :,,-. ; ^ _ 


0000 


SPACE 


=$20 






90 1C 


60 




RTS 




+ . r . ( ~ ; -i ref: -^ . ■ 


0000 


LTRMOE 


=*29 






901 D 












0000 
0000 


DELETE 


=*RF 






90 ID 




'RSCII 


Ir.p- 


it 




; 








9Q1D 




' U=e=- 


BELL d-i escape 


zh^rscter- V- 


0000 
0000 


;Sy stern RAM fl* 


.=. i^nment 


■= 


96 ID 




Jene 


-ate 


full RSCII 


:h.a.-ii;tr! =£■■. 


1 








90 ID 




e-xce 


=-t f 


_<r lower l-3 = 


e i;F R.^ ., 


0000 


CHRBUF 


=*F9 




char ac ter buffer 


90 ID 












0000 


TTVMDE 


=$100 




TTV shift mode 


90 ID 


2GS331 F 


ISC IN 


JSR 


SAUER 


5=,.,.^ fe^ 1 ;V:": 


0000 


SDE7T 


=*R651 




timing con=.tafit 


9920 


2GEB90 




JSR 


CHRIN 


^et c|-,-c 


0000 


INVEL 


=*R660 




input JufnF vector 


9023 


C=07 




CMP 


#BELL 


if not BELL 


0000 


OUTUEC 


=*R663 




C".JtFUt -JUinF Vector 


9923 


DC IB 




BNE 


EXTAIN 


Chen ,- et -ir n 


0000 


f 








9027 


20EB9Q E 


[SCAPE 


JSR 


CHRIN 


■set =ec x,d -::^: 


0000 


;suPER:r 


ION Rou- 


■ i ne i 




902fl 


C907 




CMP 


#SELL 


if r,ot EELL 


0000 


; 








902C 


D0G4 




BNE 


NOTESC 


t-!~ieri juihf 


0000 


Sfi'.'ER 


=*:51S3 




red i = ter s*>.--± 


9Q2E 


fiSIB 




LDA 


ttESC 


3et SSC :cde 


0000 


RESXAF 


=*31B8 




reitoi-e except- R&R 


9930 


D010 




BNE 


EXTAIN 


arid return 


0000 


RESRLL 


=$3104 




restore re=Ii = ter~. 


9032 


C9S0 \ 


40 T ESC 


CMP 


#NULL 


if not HULL 


0000 


DLVH 


=*3AE9 




de I ay 


9634 


D004 




BNE 


NOTDEL 


then .JurnF 


0000 


ACCESS 


=*oBSt_. 




ur. -Ft ot iy^U.M RRH 


9036 


A97F 




LDR 


ttDELETE 


els-e ^et L'EL 


0000 


; 








9033 


D00S 




BNE 


EXTRIN 


and return 


0000 


;i-o te 


•,'ice=- 






903fl 


C520 t 


JOTDEL 


CMP 


SPRCE 


if le=E£ than £F3c 


0000 


; 








903C 


90E9 




BCC 


ESCAPE 


try dzidifi 


0000 


PBDR 


=*R402 




TTV Fori 


903E 


RR 




TAX 




ri'ioue char to inde 


0000 


> 








963F 


BD4590 




LDR 


RSC I I , X 


and a*et t.- ar,=.l st 1 


0000 


;I-0 UECTOR l\ 


ITIRlIZR 


Tl-Jh 


9042 


40B3S1 E 


IXTRIN 


JMP 


RESXAF 


restore and r et.^r 


0000 


; 








9045 


5F- > 


?SCII 


. BV 


fE *5F,*rC,0 


•$7E, *60, 0, $40, 122 


9600 




-$30U0 






9046 


7C 
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9W4 ,- 


tfU 


9Q43 


7E 


904 3 


60 


904R 


00 


904B 


40 


984C 


2"^ 


904D 


5B 


904E 


5D 


904F 


00 


905S 


3E 


9051 


7D 


9652 


3C 


9053 


7B 


9054 


25 


9055 


00 


9056 


1C 


9Q57 


ID 


905S 


IE 


9059 


IF 


905R 


60 


905B 


00 


905C 


00 


905D 


00 


905E 


00 


905F 


3D 


9060 


5C 


906 1 


09 


9062 


00 


9063 


00 


9064 


00 


9065 


00 


9066 


01 


9067 


02 


9063 


03 


9069 


04 


906fl 


05 


906B 


06 


906C 


07 


906D 


03 


906E 


03 


906F 


0R 


9070 


0B 


9071 


0C 


9072 


0D 


9073 


0E 


9074 


0F 


9075 


10 


9076 


11 


9077 


12 


9073 


13 


9G79 


14 


907R 


15 


907B 


16 


907C 


17 


907D 


13 


907E 


19 


90 7F 


IR 


9030 


00 


903 1 


tlM 


9032 


00 


9033 


2R 


90:54 


33 



/TE *5B,*50. 



, *3E, *70.- *3C, f 7E, -£25 



. BVTE 0, *1C* *1D, *1E, f IF, 0, 0, S 



. BVTE .. , $ 3D .■ *5U .■ ■ .. > 



.BVTE 0, 1,2, 



h,$R,*B, fC, $D, J=E,$F 



. BVTE *10, $1 1 , f 12, *13, -f 14, f 15, *1*,$17 





9035 




;fslii 


ULi l-.F-.it. 




9035 




; 3ut.F 


d = i 


:-hdi- .-ic' 5T £ ri 




3035 




; f i- i n 


>.ed by BPULOT IT 




9035 




; char- 


jc-f.or 


- -:« quince o 




9035 




; . ,-.:y . 


r, 1 j. 


:-ther chsra 




9035 




; fon,j 


arded to CHFOUT 




9035 




; 








9035 


23333 1 


HSCuUT 


JSR 


SRUCR 




9033 


29 7 F 




AND 


#*ri-~ 




903ft 


H233 




ldu 


#L ST Si: -MULT 




903C 


DDE:39y 


TSTCHF 


CMP 


piijlti,;-: 




90 3 F 


F03R 




EEQ 


OUTSTR 




9091 


(=1003 




LD7 


#3 




9093 


Cfl 


MUPNTP 


de:-: 






9094 


30 IR 




BM I 


NTFND 




9096 


33 




DE7 






9097 


DOFR 




BNE 


M'JFNTP. 




9099 


F0F1 




BEQ 


TSTCHP 




309B 


R002 


OUTSTR 


LDV 


#2 




903 D 


20E633 




JSR 


PRDOUT 




90R0 


E3 


NX TOUT 


I NX 






90R1 


BD6390 




LDR 


mult !,:■=; 




90f=l4 


204F91 




JSR 


CHROUT 




90R7 


83 




DE', 1 






90RS 


D0F6 




BNE 


HXTOUT 




90RR 


20E630 




JSR 


PRDOUT 




90RD 


4CC4S1 




JHP 


RESRLL 


^ 


90B0 


4C5491 


MTFND 


JMF 


RLTOUT 


J 


90B3 


22 


MULT I 


.BVTE ""QT 



et- uf t 
OUfi -. Jo 



I" !■.. 



U Jt'. O 

r. send 



then iu test 
send F^r-i-.'u 
and Jet en at" 
Ioof unt i i 



ail 



fhen 
juruF 



- 1 oc 



90e4 


51 










90B5 


54 










90B6 


25 




. BV 


TE •"•■;FC- 




90B7 


50 










90B3 


4;." 










90B9 


2tf 




. BV 


TE ■' *RS 




90BIR 


4:; 










90BE 


53 










90BC 


3C: 




. BV 


TE -^LT 




90BD 


4C: 










90BE 


54 










90BF 


3[> 




-BY 


TE --EQ- 




90C0 


45 










90C1 


5;. 










30C2 


3e: 




. BV 


TE -' >GT ' 




90C3 


47 










90C4 


54 










90C5 


40 




. BY" 


TE ''-iRT 




90C6 


41 










90C7 


54 










9©CS 


5B 




. BV 


FE y CLB-' 




90C9 


4C 










30CR 


42 










90CB 


5C: 




.BVTE '-BS'- 




90CC 


42 










96CD 


53 










90CE 


50 




.BVTE -]RB' 




90CF 


52 










90D0 


42 










90D1 


5F 




.BVTE '_UN-' 




90D2 


55 










90D3 


4E 










9004 


60 




.BVTE y V RG 




98D5 


41 










9006 


47 










9007 


7B 




.BVTE ■'CLP'' 




9003 


4C 










9G09 


50 










90Dfl 


7C 




-BVTE ' I'.t'S-' 




90D6 


56 










96DC 


53 










9000 


7D 




.bvte :rp- 




90DE 


52 










90DF 


50 










90E0 


7E 




.BVTE -TL- 




90E1 


54 










96E2 


4C 










90E3 


7F 


LSTSQ 


.BVTE DELETE 




90E4 


44 




.BVTE "DL- 




90E5 


4C 










90E6 












90E6 




;Out.-Fut Period 




98E6 












90E6 


FI92E 


PRDOUT 


LDfl 


tt- . 


Jet- period 


99E3 


4C4F91 




JMF 


CHROUT 


ac do it 


90EB 




» 








98B3 




;Charjct.^r 


Input 




9GEB 




; Gets. 


1 HF-i 


4t from BRUD 


DT Ke-st-oai d 


9€EB 




; and 


conuerts to RSCI 


I and ecl"iO = 


98EB 




; char 


acter 






90EB 




; 








90EB 


203331 


CHRIN 


JSR 


SR'JER 


E-B'.-'e real ~ ter ~ 


90EE 


R9Q0 


AGAIN 


LDR 


#NULL 


clear- buffet- 


90FO 


35F9 




STR 


CHRBUF 


in RRM 


90F2 


2C02H4 


LOOK 


BIT 


PBDfl 


test for -start 


90F5 


56FB 




BUC: 


LOOK 


if not loop 


90F7 


200292 




JSR 


HRLF 


else waif halt" 


90Ffl 


2C02R4 




BIT 


PBDfl 


and test- aaair, 


90FD 


50F3 




BUC 


look: 


if faU.e =.+ art 


90FF 


R007 




LDV 


#7 


Jet. =.e'-.-'en bit = 


9101 


200692 


NXTIH 


JSR 


FULL 


wa 1 f b i t 1 1 rfte 


9104 


2C0-2R4 




BIT 


PBDfl 


test input 


9107 


13 




CLC 




O 1 r" no c-.-f 1 m 


9103 


5001 




&JC 


SflUE 


saye if 


9101=1 


33 




SEC 




else 1= 1 


910B 


66F9 


SflUE 


ROR 


CHRBUF 


shift l.-.to but" 


9180 


33 




DEV 




count doojr. 


919E 


D0F1 




BUE 


NKTIM 


Ioof it niore 


9110 


R5F9 




LDR 


CHRBUF 


3et char 


9112 


4fl 




LSP 


A 


and finish shi 


9113 


49FF 




EOF: 


#£FF 


coriiFleiiien:: 


9115 


29 IF 




AND 


ntlF 


Jet 5 d3t=> cat 


9117 


43 




PHR 




= aue Cr^i 


9118 


20E091 




JSR 


TTVOIJT 


then echo 


911B 


63 




PLR 




re-it ore chsi 


911C 


C91F 




CMP 


ttLTRS 


if not LTRS 


911E 


D008 




BNE 


HOTLTR 


then JumF 


9120 


A920 




LDfl 


ttLTPMDE 


Jet LTRS mode 


9122 


8D0001 


SETMDE 


STR 


TTVMDE 


and set mode 


9125 


4CEE90 




JMP 


RGR I N 


then try aJair. 


9123 


C91B 


HOTLTR 


CMP 


#F I GS 


if not FIGS 


912fl 


D004 




BNE 


NOTFIG 


then O'Ji-nF 
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912C R90S 
912E F0F2 
913Q 13 
9131 6DO0Q1 
9134 35F9 
9136 A25F 
9133 BDS891 
913B 293F 
91 3D C5F9 
91 3F FOOA 

9141 Cfi 

9142 19F4 

9144 R5F9 
9146 492G 

9145 4C3491 
914B 3A 
914C 4CB881 
91 4F 

914F 
914F 
914F 
914F 
914F 203031 

9152 297F 
9154 C960 
9 1 56 9602 

9153 29DF 
91 5fi AA 

9 156 BD8091 
915E C9S0 
9160 B01B 
9162 C940 
9164 9014 

9166 43 

9167 2920 
9169 CD00O1 
916C F00B 
916E 3D0001 

9171 4fl 

9172 4FI 

9173 4fl 

9174 09 IB 
9176 20E091 
9179 63 
917R 20EO91 
917D 4CC431 



LDA #FIGMDE 
BEQ SETMDE 

NOTFIG CLC 

RDC TTVNDE 

TRVOTH STR CHRBUF 
LDX #95 

SEARCH LDR BAUDOT,; 
AND #$"F 
CMP CHRBUF 
BEQ FOUND 
DEtf 

BPL SEARCH 
LDR CHRBUF 
EOR ttLTRMDE 
JMP TRVOTH 

FOUND TXfl 

JMP RESttflF 



aet FIijS mode code 
and set 
clear carr-i 
conuert to table 
and save 
number char - 1 
: aet tab 1 e entry 
1 ook at mode+data 
if sarrte as buffer- 
then found 
e 1 se count down 
and Ioof until all tea 
aet char 
coriiP 1 efnent riiode 
and try aaa in 
mo 1 *'* ASCII to R 
and return 



Output Sinai e ASCII Character- 
Con'., arts to BAUDOT and hand 1 e a 
mode charges as required. 



CHROUT JSR SAUER 

AND #$7F 

ALT OUT CMP #$60 

BCC UPRCSE 

RNO #$DF 

LIPRCSE TAX 

LDR BAUDOT, X 

CMP #$30 

BCS NOPRNT 

CMP #$40 

BCC NOMDE 
PHA 

AND ttLTRMDE 

CMP TT'v'MDE 

BEQ NOCHNG 

STA TTVMDE 

LSR A 

LSR A 

LSR A 

ORA #FIGS 

JSR TTVOUT 

NOCHNG PLA 

NOMDE JSR TTVOUT 

NOPRNT JMP RESALL 



a a '-..' e r e a" l a t a r a 
mask out. msb 
if uFper caae 
sKif convert 
elae make UFFer 
make char Fointer 
aet BAUDOT 
if msb=l 
do not print 
if next bit, =9 
no mode change 
else sa r . j e char- 
look at. mode bit 
if aarne 

then no c hanae 
elae save 
mo'.,'e to 
correct 
foe it ion 
concert to 
and send 
aet char ba 
send i t 
and retur n 



z)ri=,t- 



:k 



9130 60 

9181 FF 

9182 FF 

9133 FF 

9134 FF 

9135 FF 

9136 FF 

9137 45 
9133 FF 
9139 FF 
913A 02 
91SB FF 
913C FF 
91 3D 63 
913E FF 
913F FF 

9190 FF 

9191 FF 

9192 FF 

9193 FF 

9194 FF 

9195 FF 

9196 FF 

9197 FF 
9193 FF 
9199 FF 
919A FF 
919B FF 
919C FF 
9190 FF 
919E FF 
919F FF 
91A8 04 
91fll 40 
91A2 FF 
91A3 54 
91A4 49 
91R5 FF 
91A6 5fl 
91A7 4B 



BAUDOT . BVTE $60 , * FF , *FF , $FF , $ FF , $FF , * FF , $ 45 



. BVTE $FF , * FF , 2 , $FF > $FF , 3 , $FF , $FF 



. BVTE $FF , $FF , $FF , $FF > $FF , $FF , $ FF , f FF 



. BVTE $FF , $FF , $FF , $FF , $FF , $FF > $FF , $FF 



. BVTE 4, $40, *FF > $34 .. $4'5k * FF, $5 A, $46 



91A8 4F 
91A9 52 
91Afl FF 
91AB 51 
91 AC: 4C 
91AD 48 
91AE 5C 
91AF 50 
91B8 56 
91B1 57 
91B2 53 
91B3 41 
91B4 4A 
91B5 50 
9166 55 
91B7 47 
91B8 46 
91B9 58 
91BR 4E 
91BB 5E 
91BC FF 
91B0 FF 
91BE FF 
91BF 59 
91C0 FF 
91C1 63 
91C2 79 
91C3 6E 
91C4 69 
91C5 61 
91C6 60 
91C7 7fi 
91C3 74 
91C9 66 
91CH 6B 
91CB 6F 
9 ICC 72 
91CD 7C 
91CE 6C 
91CF 73 

9100 76 

9101 77 
91D2 6fl 

9103 65 

9104 7B 

9105 67 
ylL>& .'t 
91D7 73 
9103 7D 
9109 75 
910A 71 
91DB FF 
910C FF 
91DD FF 
910E 43 
91DF FF 
91E0 
91EQ 
91E0 

91E0 A220 
91E2 8EI33A4 
91E5 29 IF 
91E7 09*0 
91 E9 49- F 
91EB 33 
91EC 2A 

91 ED A003 
91EF 4A 
91F0 43 
91F1 A900 
91F3 9602 
91F5 0920 
91F7 3D02A4 
91FH 6& 
91FB 2EI0692 
91FE 33 
9 IFF O0EE 

9201 60 
9202 
9202 
9202 

9202 A206 
9204 DO02 
9206 fl2 16 
9208 20E93A 
9208 48 
920C 6# 
9200 CA 
920E O0F3 
9210 60 
9211 



. BVTE $4F , $52 .■ $FF , *51 , $4C , $40 , $5 



. BVTE $56 , $57 , $o"3 , $4 1 , $4 A , $50 , $ j5 , $47 



. BVTE $46 , $53 , $4E , f 5E , $FF , * FF , t FF , $5E 



. BVTE $FF , $63 .. *79 , $£E , $69 , $6 1 , *6D , $?fl 



. BVTE $74, $<r.6 , $6B * $6F , $72 , $7C , $6C , $73 



.BVTE $76, $7 



, *6A , $65 , $70 , $67 , $7E , $73 



.BVTE $7 



■ £7l,$Fr. FFf 



: ,$4 3, $Ff- 



; BAUDOT Output 

TTVOUT LDK #$20 

STX PBOfl+1 
AND #$l! r 
ORA #$63 
EOR #$FF 
SEC 
ROL A 
LO'. 1 #3 

NXTBIT LSR A 
PHR 

LDA #0 
BCC OUT ONE 
ORA #$20 

OUTONE STA PBDA 
PLA 

JSR FULL 
DEV 

BNE NXTBIT 
RTS 



iBit Timina Routines 

HALF LDX #11 

BNE T I ML OP 
FULL LDK #22 
TIMLOP JSR DLVH 

PHA 

PLA 

DEX 

BNE TIMLOP 

RTS 

. END 



set For t t.._. 
output iT.ode 
look at data b 
add 2 at of bil 
corfiF 1 anient 
set -=tar I bit 
aet ready 

mo'.'e lab to C 
=aue char 
clear foi- zero 
if no car-ra .Ju 
else aet bit 
aend to Fort 
aet char back 
delay one bit 
then count dou 
if uior e t..heri 1 
e 1 se hu i -. 



hal r" Fer iou de 
ao do it 
full Period 
delay lm-= 
fill 

count dowri 
and Ioof 
unt i 1 done 
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The MICRO Software Catalog: XIV 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



Software Catalog Nole 

This regular feature of MICRO is provided both as a service to 
our readers and as a service to the 6502 industry which is work- 
ing hard to develop new and better software products for the 
6502 based system. There is no charge for listings in this 
catalog. All that is required is that material for the listing be 
submitted in the listing format. All info should be included. 
We reserve the right to edit and/or reject any submission. 
Some of the submissions are starting to get much too long. 
We might not edit the description the same way you would, so 
please, be brief and specific. 



Name: 


Environment for KIM BASIC 


Name: 


System: 


KIM running Microsoft BASIC 


System: 


Memory: 


1.2K 


Memory: 


Language: 


Machine language 


Language: 


Hardware: 


any KIM that runs BASIC 


Hardware: 



Description: This software package provides the follow- 
ing utility programs for use with KIM BASIC: Renumber, 
Range Deletion, Append, Character-oriented Line 
Editing, Automatic Line Number Prompting, Controlled 
Listings. The package is configured to interface itself 
automatically with any version of 9-digit KIM BASIC 
upon execution. There are no restrictions on length of 
internal references in lines; you can renumber from 
1,2,3, to 63000,63010 and back again. Renumbers 
typical 200 line program in less than 10 seconds. Range 
deletions (i.e. Delete 100-950) take approxomately 5 
seconds per 100 lines deleted. One POKE makes the 
next LOAD an APPEND and then restores regular LOAD 
status. All functions have complete error checks before 
changing your original program and report errors using 
BASIC'S own error messages. Page length can be varied 
during listing or command mode at any point. Edit mode 
allows moving lines in the program or changing one sec- 
tion of a line without retyping the complete commented 
source listing. 



Includes: 
Price: 



Author: 
Available from: 



> 



KIM format tape, source, manual 
$20.00 plus $1 .50 shipping and handl- 
ing. California residents add 6% 
sales tax. 
Sean McKenna 

Sean McKenna 
64 Fairview Ave. 
Piedmont, CA 94610 



MEM-EXPLORER 

Commodore PET 

8K or more 

Microsoft PET BASIC with 

machine-language subroutine 

PET 2001-8, 2001-16, or 2001-32 



6502 



Description: MEM-EXPLORER gives the PET owner a 
"window" into his computer, to give an understandable 
view of memory contents— both user (RAM) and Inter- 
preter/OS (ROM). When the program is run, you are ask- 
ed for a starting location. MEM-EXPLORER then 
presents information on 20 bytes of memory, starting 
with the location you specified. In the left column is the 
address of the byte, while columns to the right hold the 
decimal value of its contents, the character equivalent 
(or BASIC token, if appropriate), and two different two- 
byte values (address, integer). By specifying the area in 
RAM where the BASIC program is stored, you can ac- 
tually see the program "listed" vertically in the 
character column, and tell exactly where every 
character or token is stored. MEM-EXPLORER includes 
routines that allow it to be combined with your pro- 
grams automatically. 

Copies: Many 

Price: $7.95 (quantity discount available) 

Includes: Cassette in Norelco-style box, 

description, operating instructions, 

and zip-lock protective package. 
Designer: Roy Busdiecker 

Available from: Better computer stores, or directly from 

Micro Software Systems 

P.O. Box 1442 

Woodbridge, VA 22193 
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Name: Space Shuttle Landing Simulator 

System: APPLE II 

Memory: 48K 

Language: Assembly and Applesoft II 

Hardware: 6HIRES color APPLE and Applesoft II 

ROM card 

Description: Modeled after the real Shuttle Mission 
Simulator, this program is a real flight simulator. The 
HIRES screen shows the "out-the-window" view using 
animation, projective geometry, and high speed 
assembly language graphics to display the image of the 
runway, sky, mountain, clouds, etc. In text below the 
screen is the flight data plus warnings and messages. 
Real flight algorithms are tailored to the Shuttle 
Orbiter's flight characteristics providing realistic stick 
response using the game paddle. Functional features 
are: full stall capability, ejection, landing gear, speed 
brakes, and wheel brakes on roll out. Runway stripes on 
roll out give a speed indication. The instruction manual 
is 10 pages, over 3500 words, and provides a brief in- 
troduction to guiding flight. 



Name: APPLE II Sweet 16 Assembler 

System: APPLE II 

Memory: 16K RAM, Cassette Deck 

Language: Machine and Sweet 16 

Description: This system is a co-resident, two pass 
assembler for Sweet 16, the 16 bit software processor 
resident in the APPLE II Rom. The assembler has full 
cursor editing capabilities identical to those of 
Applesoft, English Language error messages, and line 
length up to 255 characters for extended program 
documentation. Commands are included to read and 
write the text file to tape, display the input format, 
renumber lines, list text file, return to APPLE monitor, 
and to assemble. The assembler supports pseudo OPS 
to determine ASCII strings, define hex strings, label 
location, and define program origin. The assembler lists 
addresses, object code, source code and symbol table. 
Included with the program is full documentation for use 
of the assembler, plus a full description of all Sweet 16 
OP codes and16 bit registers and short programs il- 
lustrating each operation. 



Copies: 


Just Released (20 Aug 79). 


Copies: 


Just Released 


Price: 


$15.00 ppd. New Mexico residents 


Price: 


$15.00 




add 4% sales tax. 


Author: 


Steve Cochard 


Author: 


John Martellaro 


Avai labile from: 




Available from: 






Scientific Software 




Harvey's Space Ship Repair 




P.O. Box 156 




P.O. Box 3478 




Stowe, PA 19464 



University Park 

Las Cruces, NM 88003 



Name: XMON, an extended monitor for TIM 

System: any version of TIM 

Memory: minimum 512 bytes 

Language: 6502 assembly 

Hardware: Mimimum TIM plus 2708 addressing 

and comparitor with 5 discretes; op- 
tional LED and 2 discretes. 

Description: Nine commands from terminal provide: fill 
memory with constant; move, compare memory blocks; 
search for string; go execute with breakpoint and single 
step trace; exit to TIM monitor; load and dump KIM for- 
mat cassette at 4K/min. All functions externally 
callable; suitable for calling by TINY USR function. 
Standard version resides EC00 through EFFF. 



Copies: 
Price: 

Includes: 

Author: 
Available from: 



Just Released 

$28.00 for standard version, Add 

$7.00 for relocation. 

2708 PROM, comparitor and 

discretes, instructions, schematics. 

Phil Lange 

206 Santa Clara Ave. 
Dayton, Ohio 45405 
(513)278-0506 



Name: 
System: 
Memory: 
Language: 



AMPER-SORT II 

APPLE 

32K minimum 

Assembler 



Description: AMPER-SORT II is an enhanced version of 
the AMPER-SORT routine published in MICRO, number 
14. Two major enhancements improve sort speed and in- 
crease its versatility. The Shell-Metzner algorithm 
reduces sort time and a capability to sort two- 
dimensional character string arrays enables AMPER- 
SORT II to be used easily with programs such as FILE 
CABINET, an Apple Contributed Software Bank pro- 
gram. FILE CABINET with AMPER-SORT II will sort 100 
records of 3 10-byte-average fields in 3 seconds com- 
pared to 7 minutes using the original BASIC sort code. 
AMPER-SORT II will sort integer arrays, floating point 
arrays, and one or two-dimensional string arrays. It also 
features an easy-to-use BASIC interface to pass array 
name and sort parameters. 



Copies: 
Price: 

Author: 
Available from: 



Just Released 

$15.95. (California residents add 6% 

sales tax) 

Alan G. Hill 

PROGRAMMA INTERNATIONAL, Inc. 
3400 Wilshire Blvd. 
Los Angeles, CA 90010 
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Bringing Music Home 




Being a spectator is great 
. . .but why not participate? 



• Sing along 

• Compose 

• Play 

• Learn from Specialists 



LET MICRO MUSIC TURN y6UR APPLE ][ ® INTO A FAMttY MUSIC CENTER! 



VISIT THE APPLE DEALER NEAREST YOU AND ASK FOR A 
DEMONSTRATION OF MMI'S MICRO COMPOSER™ 
The MICRO COMPOSER LETS YOU— 

• Play up to 4 simultaneous voices 

• See all 4 voices at the same time you're hearing the music — a 
must for music editing! 

• Enter music notes by a fast, simple and well-tested coding 
system. 

• Program the pitch, rhythm, and timbre of the music. Tempo is 
varied by the Apple paddle. 

• Choose 7 different tone colors for each voice or create your 
own tone color. 

• Compose, edit, display, and play music through an interactive, 
command-driven language that's easy to learn. 

• Save your music on disk or cassette. 

• Hear quality music sound at low cost through the MICRO MUSIC 
DAC card. No amplifier needed! Designed for MMI by Hal 
Chamberlin and Micro Technology Unlimited. 

• Select from future MMI music instruction software to accompany 
the MICRO MUSIC DAC. 

Ask your local dealer for information on MMI products, or contact: 



The MICRO COMPOSER is an APPLE II® compatible, low-cost 
music system designed by the folks at MMI. Our music software was 
designed by leading experts in music education. A simple step-by- 
step instruction manual leads you through entering, displaying, 
editing, and playing music with up to four voices — soprano, alto, 
tenor, and bass. You can change the sound of each voice to reed, 
brass, string, or organ sounds and you can even color your own music 
sounds! 




HAVE FUNfTHE MICRO COMPOSER comes complete with an instruction manual, 
software disk or cassette— in either Integer or Applesoft ROM BASIC, and the MICRO 
MUSIC DAC music card. Just plug the MICRO MUSIC DAC into the APPLE extension slot 
and connect the oudio coble to a speoker. 

Suggested retail price $220. 




vliCfO MllSiC InC 309 Beaufort, University Plaza f Normal, IL 61761 



APPLE II is a trademark of Apple Computer Inc 
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One of the most common re- 
quests I receive from our readers is 
that MICRO provide reviews of hard- 
ware and software products. One of 
the most common types of articles 
MICRO receives is the product 
review. Why then, you may 
reasonably ask, hasn't MICRO 
printed lots of reviews? The answer 
is simple. While some other 
magazines print product reviews as 
filler material, I feel that a product 
review is a very special trust and 
must be handled in special ways. I 
feel that any review printed in 
MICRO should be as accurate, un- 
biased, and complete as possible, 
and that the qualifications and 
potential "conflicts of interest" of 
the author should be known. 

Unsolicited Reviews 

Think for a moment about the un- 
solicited reviews MICRO receives. 
Why did the author write the 
review? Probably for one of two 
reasons: 

He loved the product, or, 

He hated the product. 



MICRO Reviewer 

In either case the author is biased. 
An even more serious problem with 
the unsolicited review is that an 
author could have a vested interest 
in a product. He might be a friend of 
the manufacturer of the product, or 
could even be the manufacturer 
himself! Another problem s that 
the coverage of the possible pro- 
ducts is going to be very spotty. 
Since every author is free to choose 
what he is going to review, some 
very good products will be overlook- 
ed, and some bad ones, too. 

A Plan 

I have come up with a plan which 
I feel will permit MICRO to obtain 
the types of reviews it wants and 
which the readers require. Phase 1 
of the plan entails getting a list of 
qualified, unbiased reviewers. This 
panel of reviewers would each fill 
out the attached form and submit it 
to MICRO. Authors would then be 
selected from this group to review 
products. Since the form provides a 
means by which the basic qualifica- 
tions of the authors may be deter- 



mined, and since the selection 
would be made by MICRO, not the 
individual authors, both the 
qualification and bias problems 
should be solved. 

Reviewer Qualification Form 

Why should you become a reviewer 
for MICRO? I can think of a number 
of good reasons. First, you will get 
a chance to try new products, often 
before they become generally 
available. Second, you will get a 
chance to help fellow computerists 
by providing the detailed informa- 
tion they need to help decide on the 
merits of various products. Third, 
you will have your review published 
under your "byline". Fourth, you 
will be paid by MICRO for the 
review. Fifth, you will normally be 
able to purchase the product you 
reviewed at a substantial discount. 

If you would like to become a 
reviewer for MICRO, please com- 
plete and return the attached form. 



Name: . 
Address: 



MICRO Reviewer Qualification Form 



City: State: Zip: 

Phone: Days: Evenings: 

List all 6502 Hardware you own or have 'unlimited' access to: 



List Programming languages you are qualified in and can use on your equipment: 



List types of 6502 applications you are interested in: 



List any special equipment which your system uses/supports: 



List ALL companies, stores, etc. with which you have any relationship other than as customer, and ANY 
company, store, etc. whose products you do not feel you should review for any other reason: 



Write a brief biography which may be published with your reviews which gives the reader a summary of 
your interests and qualifications: 



I declare that the above information is complete and accurate. 

Signed: Date: 

Please complete, using additional pages if necessary, and return to: MICRO, P.O. Box 6502, Chelmsford, MA 01824 



Alarming APPLE 



Paul Irwin 

P.O.B. 1264, Station B 

Ottawa, Ontario K1P 5R3 

Canada 




Here is a way to program you APPLE to respond to 
errors with an alarm and keyboard lockout. 






Instead of using the CTRL-G beep on 
your next program, here's an alarm 
system written to assist in performing 
error recovery on the APPLE II. When the 
alarm system is used, your program will 
react to an error by immediately locking 
the keyboard, sounding a continuous 
two-tone alarm, and forcing the 
operator's attention to an error recovery 
subroutine. No way will recognizable er- 
rors escape your edits once they meet 
the Alarming APPLE! 

To use the alarm system, start with 
each of your subroutines clearly defined 
as either error detecting or error correc- 
ting. This means that you will classify 
most of your "normal" routines as error 
detecting routines. Arrange to have all 
of your routines invoked by a mainline. 
Then the mainline can invoke error cor- 
recting routines, as well, and still remain 
in control. This is illustrated by the pro- 
gram shown here. 

In the BASIC listing, the one error 
detecting routine is called TASK, while 
the error correcting routine is TRAP. The 
mainline is free to decide what to do 
after recovery: whether to continue the 
same error detecting routine or to take 
any other action. An intelligent mainline 
of this sort can avoid most error 
recovery hassles. 



The key to the error recovery pro- 
cedure is a machine language routine 
called ALARM. It is invoked from BASIC 
by executing a CALL 3529 and from 
machine language by executing a JSR 
$DC9. The alarm routine will then 
generate a two-tone alarm continuously. 
At the end of each cycle, it examines the 
keyboard for a CTRL-C. If none was 
found, it continues sounding the alarm. 
But when a CTRL-C is typed, the sound 
will stop and the routine will return. The 
effect is to produce a continuous sound, 
ignoring any input, until a CTRL-C is 
entered. 

You may have your own ideas as to 
how the alarm should sound. The dura- 
tion of the first tone is in $DA2 and its 
period is in $D9D. The second tone has 
its duration and pitch stored in $DBF 
and $DBA. The two that I employ are 
quite noisy, but you can experiment with 
other parameter pairs. Those periods 
that are relatively prime — having no 
common factor — will produce discord. 
They will be loudest when matching the 
APPLE'S speaker resonance. 

When loading the routines, remember 
to set LOMEM greater than $DD0, the 
highest location in the alarm routine, so 
the two won't overwrite each other. The 
BASIC routine shown here will run as it 



appears, and will invoke the machine 
language routine. If you are not bother- 
ing with the BASIC, simply JSR $DC9. 

After you run the Alarming APPLE and 
decide to use it for error recovery in your 
next program, consider these ideas: 

Organize the program into error detec- 
ting routines, one or more error recovery 
routines, and an intelligent mainline. 

Use an error flag in the recovery 
routines to inform the mainline. 

Use a status flag in the error recovery 
routines to indicate success or failure of 
the recovery procedure to the mainline. 

Let the mainline make aii decisions 
regarding what to do next. 

For instance, if you are heavily into 
structured programming, you might con- 
sider a mainline centered on a computed 
GOSUB with the returns of each routine 
setting a status number pointing to the 
next routine. Or you may want to use IFs 
and GOSUBs tofether in the mainline as 
each case is decided. The important 
thing is to route all control decisions — 
decisions that answer the question: 
"What next?" — through the mainline. 
Including error recovery decisions. In 
fact, especially error recovery decisions. 
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1 REM . BrtSIC CALL SEQUENCE 

2 REM . FOR RLRRM PROMPT ROUTINE 

3 REM . 

4 TASK =3806 

IS OFF=0 : TA5K=200 : TRAP=380 : ALARM=3529 

95 REM 

96 REM MAIN LINE SEQUENCE 

37 REM 

38 REM . 

39 REM . 

100 ERR=OFF: GOSUB TASK: IF ERR THEN GOSUB 
TRAP 

101 REM . 

102 REM . 

110 GOTO 32767 

120 REM 

121 REM 

122 REM 

2W0 INPUT ERR; REM .USE FOR TEST 

210 REM 

211 REM PUT ERROR DETECTING TASK HERE 

212 REM REPLACING LINE 200 

213 REM 
220 RETURN 
237 REM 
29S REM 
299 REM 

30U POKE 50,127: PRINT "ERROR"; : POKE 50,25 

: PRINT " TVPE A CTRL/C" : CALL ALARM 
310 REM 

320 REM PUT ERROR RECOVERY ROUTINE HERE 
330 REM 
340 RETURN 

Figure 1: Example of a BASIC program invoking the 
alarm routine in Fig. 2. 3529 is $DC9. 




^VENTURE 



GAMES OF HIGH ADVENTURE 
FOR THE APPLE II FROM 

SYNERGISTIC SOFTWARE 

5221 120th Ave. S.E. 
Bellevue, WA 98006 



The Apventure games combine the exciting graphics and 
sound effects capabilities of the APPLE II with the fas- 
cinating complexity of a mythical adventure game. 
Monsters, hazards, obstacles, weapons, magical devices 
and evil powers confront the player at every turn as 
you gather treasure and try to reach your goal. Two 
adventures are now available: 



DUNGEON CAMPAIGN - Full color graphics 
subterranean adventure. 16K required. 
CASS, $12.50 DISK $15.00 

WILDERNESS CAMPAIGN - HIRES graphics 
surface adventure. 48K required. 

CASS. $15.00 DISK $17.50 



GET BOTH ON ONE DISK FOR $30.00 
(WA Res. add 5.3% sales tax) 
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Figure 2: Machine language routine to 
sound two-tone alarm until ctrl/C is 
typed. All other input is ignored. To 
demonstrate, type DC9G to the APPLE II 
monitor. 



Put Yourself in Control with the 

-^^APPLETHROTTL E 

Thaf s right! The APPUETHROTTLf will turn 
your game paddles into a speed controller. 
By simpt/ pushing a button , you can stop 
your computer for as long as you want. 
Release the button, and your computer 
enters a slow-motion mode with one 
paddle controlling the speed. And if that 
isn't enough, look at these additional 
features: 

• Rugs nto any slot 

• Works with machine language, Integer 
BASIC, and Applesoft 

• Normal - slow - stop 

• Use to LIST, TRACE, RUN, etc. 

• NO SOFTWARE to load _ 

• Unveil program secrets ^APPLETHROTTLE $89.95 

And there's more! No more multiple LIST commands to view small program 
sections. With the M>P\JE.THROTTLE, you'll be able to list or trace long 
programs while watching your program flow in slow-motion. So get in control 
with the WPLETHR TTLE and order yours today! 




APPLETIME,a Real Time Clock 
for the Apple U. Plugs directly into any 
slot and keeps time even when 
computer is off. Features 12/24 
Hour, BCD/ ASCII data format and 
AC/CrystaJ time base selection. 
Includes software examples for 
machine language and BASIC pro- 
grams. Completely assembled and 
tested. 
APT-1 Real Time Clock $79.95 



PROTOBOARD,with over 1300 
holes on 0.1 centers for designing 
your own circuits. 
APB-1Protoboard .... $17.95 



VERBATIM S 1 *" DISKETTES 
Soft-Sector Box of 10 .. . $34.50 

(plastic file case included) 




west side electronics 

P.O. Box 636, Chatsworth, CA 9131 1 

We pay ail shipping in Continental USA 
Others add 1 0%. California residents add 6% tax 
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. Rainbow 1, Number 4 (April, 1979) 

Minch, David "Review: Electronic Index Card", p1. 
This program by Bob Bishop emulates a card index file 
but the reviewer doesn't think it offers substantial ad- 
vantages. 

Editor, "Pascal", p2. 
The editor discusses the Pascal Language soon to be 
available to Apple owners. 

Simpson, Rick "Introduction to Assembly Language Pro- 
gramming" pgs. 4-19. 
A tutorial article on this important subject. 

Watson, Allen "HI-RES Color" pg. 10. 
The relationship between the color subcarrier frequen- 
cy and the color dots; also why there are gaps in ver- 
tical and near vertical vectors in colors other than 
white. 



Minch, David "Firmware Review — Programmer's Aid 
ROM"pgs. 11-12. 

The reviewer feels the ROM is a mixed blessing, 
limited utility. The Operating Manual is very good. 



of 
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492. KB Microcomputing No 30 (June, 1979) 

Lindsay, Len "PET Pouri" pgs. 6-12. 
Discusses a way to protect software, evaluation of 
cassette quality, new hardware and software, 
periodicals with PET information, list protection, Trace 
program, and disabling the STOP key. 

Anon., "Ohio Scientific's Small System Journal"pg.8-11 
Discussion of Microcomputer Information Manage- 
ment systems. 

Van Dyke, James A. "A Sneaky Interrupt for the 6502" 
pg. 97. 
A novel interrupt using the SO input pin. 

493. Creative Computing 5 No 5 (May, 1979) 

Kelley, Derek "Beyond the Text Editor"pgs. 32-33. 
Program that searches for words, etc., on the Apple. 

Hunter, Jim "Peripherals Unlimited Text Editor" p.46. 
Upper and Lower case word processing with the Dan 
Paymar lower case adapter for the Apple and this Text 
Editor. 

Yob, Gregory "Personal Electronic Transactions" 
pgs. 122-127. 

I/O on the PET, Notes on PET Graphics, including 
higher resolution, a list of PET I/O lines. 



494. Personal Computing 3 (June, 1979) 

Zimmermann, Mark "Line Renumbering Renumbered" 
pg-7. 

Modifications to the earlier program published in 
March, for the Apple. 

Zimmermann, Mark " ( G' is for Graphics" pgs. 38-41. 
An educational picture book for the kids on the PET. 

495. Cider Press 2 (May, 1979) 

Anon. "Apple Tape Beeps Translated" pg.3. 
Why the beeps are on the leader and at the end of pro- 
grams. 

Anon. "May DOM" pg. 2. 
The May Disk of the Month has a good mix of pro- 
grams of different categories; games, utilities, 
business, etc. Apple. 

Hertzfeld, Andy "An Easy Way to Use Text Page 2"pg.3. 
Add text to page two graphics using these instructions 
on the Apple. 

Aldrich, Ron "Split Catalog" pg.4. 
Split your catalog print-out on the Apple Disk, printing 
two titles across the page. 

Kamins, Scot and Guarriques, Chris "Mini-Word Pro- 
cessor" pg.4. 

The Cider Squeezer was specifically designed to aid 
Apple users to write short articles. 

Draper, John T. "Textwriter's Creation" pg.5. 
Discussion of how a word processor evolved. Apple. 

Espinosa, Chris and Wyman, Paul "CALLS, POKES and 
PEEKS" pgs. 6-7. 

A convenient listing of these important routines for the 
Apple. 

Silverman, Ken "Filling your Memory Cells" pg.7. 
An updated listing of the various 16K dynamic RAMs 
now available together with speed designations, etc. 
Beware of units of 300 NS or even slower speed. 

Nareff, Max J. "Matrix Simulation with the Apple, Part 
III" pgs. 8-9. 
Another installment in this continuing series. 

Sullivan, Charles Jr. "Meeting with Sargon" pg.9. 
Chess 4 by the author and the wll known Sargo II fight 
it out on the chess board. Apple. 
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Anon. "Applibrary" pgs. 10-11. 
The Apple Core Library now lists 274 programs in 13 
different categories, for the Apple II. 

496. Call -Apple 2 No 4 (Apr./May, 1979) 

Smith, Ken and Scharen, Rosalie "Analysis of the Great 
Hello Program", pgs. 4-7. 

Analysis of the tricks in this interesting program. 
Apple. 

Golding, Val J. "Integral Data IP 225 Printer: A Review" 
pgs. 8-11. 

How to use this printer with the Apple. A Printer Driver 
routine by Darrell and Ron Aldrich is given. 

Aldrich, Ron "Ron's Page" pgs. 12-17. 

Hl-Res Screen Dump Routine, Split Catalog Routine, etc. 

Suitor, Richard F. "Apple Disk Operating System" pg.17 
A discussion including some insights into the details of 
the new Apple Disk DOS 3.2. 

Winston, Alan B. "The Multilingual Apple" pgs 18-19. 

Discussion of languages other than Basic for the Apple: 
PILOT, FORTH, FCL65E, XPLO, Pascal. 

Aldrich, Darrell "Monitor Calls, Cross References and 
Memory Map" pgs 20-23. 
Important calls and addresses based on the authors 

research. 

Aldrich, Darrell "The Apple Doctor" pgs 30-31. 

How to save a shape table along with an Applesoft Pro- 
gram. 

Golding, Val J. "Routine to Center Titles" pg.31. 
A simple integer Basic Utility. 

497. MICRO No 12 (May, 1979) 

Morganstein, David 'Real-Time Games on OSI" pgs 31-33 
How real-time games can be written for Challenger 
systems which use a serial terminal run from the ACIA. 

498. Rainbow 1, Issue 5 (May, 1979) 

Memory Enterprises "Color-Killer Module" pg.6. 
An easy to install module to add the color-killer function to 
early model Apple Ms. 

Watson, Allen III "Another Review of the Programmer's 
AID #1" pgs. 7-10. 
A description of the features of this accessory ROM. 

Anon. "An Interview with Phil Roybal of Apple Corp" 
pgs 11-13. 

Phil Roybal, marketing manager for Apple Corp., reveals 
that coming soon is an "auto-start" monitor ROM that will 
power up the Apple directly into Basic, or upon hitting 
reset, also a stop list feature, easier cursor control, etc. 

499. Calculator/Computers 3 (Jan./Feb., 1979) 

Bobek, Frank "Vats Right" pgs 41-45. 
A program to aid physics students studying velocity and 

acceleration phenomena. For the PET. 

500. Calculator/Computers 2 (Nov./Dec, 1979) 

Oglesby, Mac "Sinners" pgs 36-38. 
Three of Satan's Fiends fight against a group of sinners. 
For the PET. 

501. Dr. Dobb's Journal 4, Issue 6 (June/July, 1979) 

Colburn, Don "EXOS-A Software Development Tool Kit 
for the 6500 Microprocessor Family" pgs. 29-31. 
A tool to efficiently and effectively both generate and 
modify 6500 assembly language programs. 



Monsour, Fred J. "Kim Renumber" pg. 47. 
A program to renumber KIM-1 Microsoft Basic listings. 

502. Stems From Apple 2, Issue 5 (May, 1979) 

Armstrong, Kevin "Numeric Sort Routine" pg.2. 
A sort program written in Applesoft II. 

Reed, Ron "Paddle Speed Control" pg.3. 
Control a slow list or program execution with the Apple 
paddles. 

Hoggatt, Ken 'Ken's Korner" pgs 4-5. 
A series of tutorials for the Apple user including the use of 
GET A or GET $A, the use of the mini-assembler, Yes and 
No statements, etc. 

503. Recreational Computing 7, Issue 39 (May/ June, 1979) 

Feniger, Bob "A Different Way to Float" pg. 6. 
A different version of an earlier program for the PET. 

Carpenter, Chuck "PILOT for the Apple - An Extended 
MICRO-PILOT Interpreter" pgs 28-31. 
An interpreter in Applesoft. 

Saal, Harry "SPOT" pgs. 52-55. 

Notes for PET users include information on new models of 
the PET, a review of Cursor cassette magazine, new books 
on the PET, and a graphics program listing called 
CASCADES. 

504. Creative Computing 5, No 6 (June, 1979) 

Badgett, J. Tom "Strings and Things: Basic String Man- 
ipulations" pgs. 86-90. 
Tutorial on String variables, etc. 

North, Steve "ALF/Apple Music Synthesizer" pgs 102-103 
Review of the new Accessory for the Apple which makes 
possible high-quality computer music. 

Soft-One "Apple Graphics Programs" pg. 143. 

High Resolution Graphics Utility Set, including character 
set, lower case, shape vector table assembler, etc. 

505. MICRO No 13 (June, 1979) 

Putney, Charles B,"Harmonic Analysis for the 
Apple" pgs 5-8. 

A program in Applesoft Floating Point BASIC lets the Ap- 
ple do Fourier Analysis calculations, 

Pytlik, William F. "Case of the Missing Tape Counter" 
pg.11. 
How to locate your files on the PET Cassette. 

Taylor, William L. "The Basic Morse Keyboard" pgs 13- 
15. 

A Ham program implemented on an OSI system to make an 
ASCII keyboard act as a "Morse Keyboard." 

Rinard, Phillip M. 'A SYM-phony in Stereo" pgs 17-19 
This music program uses the 6532 and the 6522's of the 
SYM to generate stereo music, 

Foote, Gary A. 'Sorting with the APPLE II- Part l"pgs. 
21-26. 

The first installment presents some background 
material and compares three sorting techniques and 
gives a program for the SHELL-METZNER sort. 

Cass, James L. 'Streamlining the C2-4P" pg.28 
Three modifications for the OSI C2-4P to raise its 
speed, increase cassette through put and add reverse 
video to the display. 



18:62 



MICRO — The 6502 Journal 



November, 1979 



MjnTMSPrscaflfirii 

IE litar dais in f cm halnuj 
3B Butu mail&EN 
3D mail f crfn 1 

(ID flasaiua tfoa Parscaal I 
OScrnpLiar Satalcg I 

3D Eld ■ 

11 HI [1E33! 

Follow this simple program and you will receive 
The Personal Computer Catalog. The one refer- 
ence book to fine quality personal computers, 
software, supplies and accessories. 

This valuable catalog is FREE so mail your order 

today. 




Address. 
City 



Do you own a computer?. 



_ What type? 



Do you use your computer for: 
Personal? Education? 



Business?. 
_Other? 



Mail this form to: 
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SERVING THE PERSONAL/ 
Or phone: (612) 884-1475 



COMPUTER INDUSTRY ■ 
Weldon Electronics 
4150 Hillcrest Road 
Wayzata, MN 55391 



AIM 65 




AIM 65 is fully assembled, tested and warranted. With the 
addition of a low cost, readily available power supply, it's 
ready to start working for you. 

AIM 65 features on-board thermal printer and 
alphanumeric display, and a terminal-style keyboard. It 
has an addressing capability up to 65K bytes, and comes 
with a user-dedicated 1K or 4K RAM. Two installed 4K 
ROMS hold a powerful Advanced Interface Monitor 
program, and three spare sockets are included to expand 
on-board ROM or PROM up to 20K bytes. 

An Application Connector provides for attaching a TTY 
and one or two audio cassette recorders, and gives exter- 
nal access to the user-dedicated general purpose I/O lines. 

Also included as standard are a comprehensive AIM 65 
User's Manual, a handy pocket reference card, an R6500 
Hardware Manual, an R6500 Programming Manual and an 
AIM 65 schematic. 

AIM 65 is packaged on two compact modules. The 
circuit module is 12 inches wide and 10 inches long, the 
keyboard module is 12 inches wide and 4 inches long. 
They are connected by a detachable cable. 

THERMAL PRINTER 

Most desired feature on low-cost microcomputer systems . . . 

• Wide 20-column printout 

• Versatile 5x7 dot matrix format 

• Complete 64-character ASCII alphanumeric format 

• Fast 120 lines per minute 

• Quite thermal operation 

• Proven reliability 

FULL-SIZE ALPHANUMERIC KEYBOARD 

Provides compatibility with system terminals . . . 

• Standard 54 key, terminal-style layout 

• 26 alphabetic characters 

• 10 numeric characters 

• 22 special characters 

• 9 control functions 

• 3 user-defined functions 

TRUE ALPHANUMERIC DISPLAY 

Provides legible and lengthy display . . . 

• 20 characters wide 

• 16-segment characters 

• High contrast monolithic characters 

• Complete 64-character ASCII alphanumeric format 



BY ROCKWELL INTERNATIONAL 



PROVEN R6500 MICROCOMPUTER SYSTEM DEVICES 

Reliable, high performance NMOS technology . . . 

• R6502 Central Processing Unit (CPU), operating at 1 
MHz. Has 65K address capability, 13 addressing modes 
and true index capability. Simple but powerful 56 
instructions. 

• Read/Write Memory, using R2114 Static RAM devices. 
Available in 1K byte and 4K byte versions. 

• 8K Monitor Program Memory, using R2332 Static ROM 
devices. Has sockets to accept additional 2332 ROM or 
2532 PROM devices, to expand on-board Program 
memory jp to 20K bytes. 

• R6532 RAM-Input/Output-Timer (RIOT) combination 
device. Multipurpose circuit for AIM 65 Monitor functions. 

• Two R6522 Versatile Interface Adapter (VIA) devices, 
which support AIM 65 and user functions. Each VIA has 
two parallel and one serial 8-bit, bidirectional I/O ports, 
two 2-bit peripheral handshake control lines and two 
fully-programmable 16-bit interval timer/event counters. 

BUILT-IN EXPANSION CAPABILITY 

• 44-Pin Application Connector for peripheral add-ons 

• 44-Pin Expansion Connector has full system bus 

• Both connectors are KIM-1 compatible 

TTY AND AUDIO CASSETTE INTERFACES 

Standard interface to low-cost peripherals . . . 

• 20 ma. current loop TTY interface 

• Interface for two audio cassette recorders 

• Two audio cassette formats: ASCII KIM-1 compatible 
and binary, blocked file assembler compatible 

ROM RESIDENT ADVANCED INTERACTIVE MONITOR 

Advanced leatures found only on larger systems . . . 

• Monitor-generated prompts 

• Single keystroke commands 

• Address independent data entry 

• Debug aids 

• Error messages 

• Option and user interface linkage 

ADVANCED INTERACTIVE MONITOR COMMANDS 

• Major Function Entry 

• Instruction Entry and Disassembly 

• Display/Alter Registers and Memory 

• Manipulate Breakpoints 

• Control Instruction/Trace 

• Control Peripheral Devices 

• Call User-Defined Functions 

• Comprehensive Text Editor 

LOW COST PLUG-IN ROM OPTIONS 

• 4K Assembler— symbolic, two-pass $79.0(3 

• 8K BASIC Interpreter $99.00 

POWER SUPPLY SPECIFICATIONS 

• +5 VDC ± 5% regulated @ 2.0 amps (max) 

• + 24 VDC ± 15% unregulated @ 2.5 amps (peak) 
0.5 amps average 

PRICE: $369.00 okram) 

Plus $4.00 UPS (shipped in U.S. must give street address), 
$10 parcel post to APO's, FPO's, Alaska, Hawaii, Canada, 
$25 air mail to all other countries 

We manufacture a complete line of high quality expansion 
boards. Use reader service card to be added to our mailing 
list, or U.S. residents send $1.00 (International send $3.00 
U.S.) for airmail delivery of our complete catalog. 




ENTERPRISES 

INCORPORATED 



2967 W. Fairmount Avenue 
Phoenix AZ 85017 
(602)265-7564 



NOW PRESENTING. . . N 

Software for Apple II 

Vfor your Entertainment - Business - Education 

Star Attractions: 









FILEMASTER 2 programs: FORMAT & RETRIEVAL comprise 
a powerful data file manager. Great for everything from phone lists 
to legal abstracts. Needs 32K. Design your own data structure. Up 
to 500 characters per record. Up to 15 searchable fields in any com- 
bination. On Disk $34.95 

SPACE Multi-faceted simulation of life in interstellar society. You 
and opponents must make life & death decisions. Keeps track of 
your progress from one game to next. Needs 48K and Applesoft 
ROM. Disk $29.95 

Pot O'Gold I or our All New Pot 0' Gold II A collection of 49 pro- 
grams for 16K Apple. Everything from Logic to action games. Only 
a buck a game. Specify I or II. Price each: Tape $49 .... Disk $54 

ADVENTURE Fight off pirates and vicious dwarfs. 700 travel op- 
tions, 140 locations, 64 objects. Needs ROM & 48K. Disk. . $29.95 

16K CASSETTE INVENTORY Use item number, description, 
stock amount, reorder amount, restock date, cost & sell price. Holds 
up to 140 items. Tape $35 

32K DISK INVENTORY: Use stock numbers description, vendor, 
record of purchase and sales date, amount on hand, cost & sell price, 

total value. Holds up to 300 items. Disk $40 

With Parts Explosion: Disk $50 

32K DATA BASE Cross file for phone lists, bibliographies, recipes. 
Run up to 9 lines of 40 columns each. Search by item anywhere. 
Disk $20 

24K HI-RES LIFE SIMULATION Conway's equations on 296x180 
screen. A mathematical simulation to demo population growth with 
birth, death and survival as factors. Tape $10 

16K CIRCUIT LOGIC DEVELOPMENT AID Evaluate circuits of 
up to 255 gates, including AND, OR, NOR, NAND, XOR, XNOR 
and INVERTER. Tape $10 

1BK MORSE CODE TRAINER Learn Morse Code, and transmit or 
receive over radio. Tape $10 

16K DEVIL'S DUNGEON: Adventure through dark passages where 
monsters, demons, poisonous gas, dropoffs threaten ... all to disco- 
ver fantastic treasures. Comes with instruction book. Tape ... $10 

16K PACIFICA: Discover the floating island and rescue the beauti- 
ful princess. To win you must recover the enchanted crown, but you 
face the threat of magic spells and demons. Tape $9.95 

Don't see what you've been looking for, here? 
Then write for our FREE SOFTWARE CATALOG. 
We're saving one just for you I 

To order software, add $2 shipping. To transfer tape ver- 
sions to disk add $5. California residents add 6% sales tax. 
Sorry, we can not ship to P. 0. Boxes. VISA/MASTER CHARGE 
Welcomed! 



RAINBOW'S CASINO 9 gambling games: Roulette, Blackjack, 
Craps, Horserace, and a few originals that Vegas hasn't heard about. 
Needs 16K. Tape $29.95 

16K SPACE WAR: You in your space capsule battle against the 
computer's saucer ... in hi-res graphics. Tape $12 

16K MEMORY VERIFY Diagnostic routine to check range of mem- 
ory. Indicates faulty addresses, data in memory cell, and faulty data. 
Tape $5 

16K APPLEODION Music synthesis composes original Irish jigs. 
Enter your own music and save on tape or disk. Includes 3 Bach 
fugues. Tape $10 

16IK APPLEVISION Demo for Hi-Res graphics and music. 

Tape $10 

32IK COMPU-READ 5 programs to teach you speed reading, in 
stages. Includes synonym and antonym identification. You control 
your rate of speed, or keep up with the computer's pace. 
Disk $24.95 

48K PERCEPTION I, II, III random shapes and sizes must be 
matched. In III, you control format and display time and get 
weighted scores. Needs ROM. Each Disk $24.95 

32K STORY TELLER Use your bizarre imagination and input key 
words for fantastic and funny tales. Never the same story twice. 
Tape $12.95 

32K WAR/RESCUE Engage in 10 battles with your infantry against . 
the Apple robots. Calculate Apple's strategy and win more battles 
than the computer. Tape $12.95 

24K POLAR PLOT Plot polar equations in Hi-Res Graphics. 

Tape $10 

32K SHAPE SCALER Utility to generate and animate Hi-Res 
graphic shapes. Simple routine provided to inspect position of 
shapes, and specify precise X/Y coordinates and scale. Needs ROM. 
Disk $13.95 

32K ZINTAR/PROPHET Great party game. Under control of the 
mighty Zintar's edict you take a very special trip to the world of 
Krintar. Heightened visual graphics. Needs ROM. Disk .... $16.95 

APPLE MONITOR PEELED Everything you wanted to know about 
the Apple Monitor but couldn't figure out. User-written manual in 
plain English clears your confusion. Only $9.95 




Garden Plaza Shopping Center, Dept. 1 1 A 

9719 Reseda Blvd., Northridge, Ca 91324 

Telephone: (213) 349-5560 



APPLE II® JOYSTICK & EXPANDA-PORT 




EVERY APPLE II OWNER SHOULD HAVE ONE! 




The PROGRAMMA JOYSTICK is an input peripheral that 
attaches to the APPLE II Computer's game I/O Port. The 
JOYSTICK is a must for the serious game player, and it 
offersa degreeof linearity not currently available with other 
joysticks. The ease of manueverability and the availability 
of the "functional" switches make the PROGRAMMA 
JOYSTICK a much needed enhancement to any APPLE II 
Computer System owner. The PROGRAMMA JOYSTICK 
comes completely assembled and tested, including a User's 
Guide. 



JOYSTICK 



$49.95 




EXPANDA-PORT $49.95 



PROGRAMMA 

INTERNATIONAL, INC. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 (213) 384-0579 



The PROGRAMMA EXPANDA-PORT is a multi-port ex- 
pander for the game I/O port of any APPLE II Computer 
System. In addition to allowing expansion for up to six 
devices, the EXPANDA-PORT contains a built-in speaker 
that replaces the function of the Apple II 's speaker. The 
switcheson the EXPANDA-PORT allow for the selection of 
the specific device desired and for the switching of that de- 
vice. No unplugging of any device connected to the 
EXPANDA-PORT is required. The PROGRAMMA EX- 
PANDA PORT comes completely assembled and tested, in- 
cluding a User's guide. 



The PROGRAMMA JOYSTICK and EXPANDA-PORTare 
available on a limited basis through your local computer 
dealer. Apple II is a registered trademark of Apple Com- 
puters, Inc. 
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